diff options
Diffstat (limited to 'testsuite/tests/codeGen/should_run/simd003.hs')
-rw-r--r-- | testsuite/tests/codeGen/should_run/simd003.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/testsuite/tests/codeGen/should_run/simd003.hs b/testsuite/tests/codeGen/should_run/simd003.hs deleted file mode 100644 index de3ae5aeb4..0000000000 --- a/testsuite/tests/codeGen/should_run/simd003.hs +++ /dev/null @@ -1,25 +0,0 @@ -{-# OPTIONS_GHC -msse4 #-} -{-# OPTIONS_GHC -mavx #-} -{-# LANGUAGE MagicHash #-} -{-# LANGUAGE UnboxedTuples #-} --- !!! test the packing of floats and doubles into a vector - -import GHC.Exts - -data FloatX4 = FX4# FloatX4# - -instance Show FloatX4 where - show (FX4# f) = case (unpackFloatX4# f) of - (# a, b, c, d #) -> show ((F# a), (F# b), (F# c), (F# d)) - -data DoubleX2 = DX2# DoubleX2# - -instance Show DoubleX2 where - show (DX2# d) = case (unpackDoubleX2# d) of - (# a, b #) -> show ((D# a), (D# b)) - - -main :: IO () -main = do - print (FX4# (packFloatX4# (# 9.2#, 8.15#, 7.0#, 6.4# #))) - print (DX2# (packDoubleX2# (# 7.2##, 9.3## #))) |