diff options
Diffstat (limited to 'testsuite/tests/ffi/should_run/PrimFFIWord8.hs')
-rw-r--r-- | testsuite/tests/ffi/should_run/PrimFFIWord8.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/testsuite/tests/ffi/should_run/PrimFFIWord8.hs b/testsuite/tests/ffi/should_run/PrimFFIWord8.hs deleted file mode 100644 index 87e46636d1..0000000000 --- a/testsuite/tests/ffi/should_run/PrimFFIWord8.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE MagicHash #-} -{-# LANGUAGE UnliftedFFITypes #-} - -module Main where - -import GHC.Exts - -foreign import ccall "add_all_word8" - add_all_word8 - :: Word8# -> Word8# -> Word8# -> Word8# -> Word8# - -> Word8# -> Word8# -> Word8# -> Word8# -> Word8# - -> Word8# - -main :: IO () -main = do - let a = narrowWord8# 0## - b = narrowWord8# 1## - c = narrowWord8# 2## - d = narrowWord8# 3## - e = narrowWord8# 4## - f = narrowWord8# 5## - g = narrowWord8# 6## - h = narrowWord8# 7## - i = narrowWord8# 8## - j = narrowWord8# 9## - x = W# (extendWord8# (add_all_word8 a b c d e f g h i j)) - print x |