SimdTest.hs

{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
import GHC.Prim
import GHC.Float

main :: IO ()
main = do
    let x = broadcastDoubleX4# 42.0##
        y = broadcastDoubleX4# 52.0##
        z = addIt x y
        (# _,_,_,a #) = unpackDoubleX4# z
    print (D# a)

addIt :: DoubleX4# -> DoubleX4# -> DoubleX4#
addIt x y = plusDoubleX4# x y
{-# NOINLINE addIt #-}