7 files changed, 0 insertions, 76 deletions
diff --git a/testsuite/tests/ffi/should_run/PrimFFIInt8.hs b/testsuite/tests/ffi/should_run/PrimFFIInt8.hs
deleted file mode 100644
index 4124e074aa..0000000000
--- a/testsuite/tests/ffi/should_run/PrimFFIInt8.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
-{-# LANGUAGE MagicHash #-}
-{-# LANGUAGE UnliftedFFITypes #-}
-
-module Main where
-
-import GHC.Exts
-
-foreign import ccall "add_all_int8"
-    add_all_int8
-        :: Int8# -> Int8# -> Int8# -> Int8# -> Int8#
-        -> Int8# -> Int8# -> Int8# -> Int8# -> Int8#
-        -> Int8#
-
-main :: IO ()
-main = do
-    let a = narrowInt8# 0#
-        b = narrowInt8# 1#
-        c = narrowInt8# 2#
-        d = narrowInt8# 3#
-        e = narrowInt8# 4#
-        f = narrowInt8# 5#
-        g = narrowInt8# 6#
-        h = narrowInt8# 7#
-        i = narrowInt8# 8#
-        j = narrowInt8# 9#
-        x = I# (extendInt8# (add_all_int8 a b c d e f g h i j))
-    print x
diff --git a/testsuite/tests/ffi/should_run/PrimFFIInt8.stdout b/testsuite/tests/ffi/should_run/PrimFFIInt8.stdout
deleted file mode 100644
index ea90ee3198..0000000000
--- a/testsuite/tests/ffi/should_run/PrimFFIInt8.stdout
+++ /dev/null
@@ -1 +0,0 @@
-45
diff --git a/testsuite/tests/ffi/should_run/PrimFFIInt8_c.c b/testsuite/tests/ffi/should_run/PrimFFIInt8_c.c
deleted file mode 100644
index dc51687530..0000000000
--- a/testsuite/tests/ffi/should_run/PrimFFIInt8_c.c
+++ /dev/null
@@ -1,7 +0,0 @@
-#include <stdint.h>
-
-int8_t add_all_int8(
-        int8_t a, int8_t b, int8_t c, int8_t d, int8_t e,
-        int8_t f, int8_t g, int8_t h, int8_t i, int8_t j) {
-    return a + b + c + d + e + f + g + h + i + j;
-}
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
diff --git a/testsuite/tests/ffi/should_run/PrimFFIWord8.stdout b/testsuite/tests/ffi/should_run/PrimFFIWord8.stdout
deleted file mode 100644
index ea90ee3198..0000000000
--- a/testsuite/tests/ffi/should_run/PrimFFIWord8.stdout
+++ /dev/null
@@ -1 +0,0 @@
-45
diff --git a/testsuite/tests/ffi/should_run/PrimFFIWord8_c.c b/testsuite/tests/ffi/should_run/PrimFFIWord8_c.c
deleted file mode 100644
index 535ed4185c..0000000000
--- a/testsuite/tests/ffi/should_run/PrimFFIWord8_c.c
+++ /dev/null
@@ -1,7 +0,0 @@
-#include <stdint.h>
-
-uint8_t add_all_word8(
-        uint8_t a, uint8_t b, uint8_t c, uint8_t d, uint8_t e,
-        uint8_t f, uint8_t g, uint8_t h, uint8_t i, uint8_t j) {
-    return a + b + c + d + e + f + g + h + i + j;
-}
diff --git a/testsuite/tests/ffi/should_run/all.T b/testsuite/tests/ffi/should_run/all.T
index 9223b3d1b3..fd0af7ebc3 100644
--- a/testsuite/tests/ffi/should_run/all.T
+++ b/testsuite/tests/ffi/should_run/all.T
@@ -188,7 +188,3 @@ test('ffi023', [ omit_ways(['ghci']),
 test('T12134', [omit_ways(['ghci'])], compile_and_run, ['T12134_c.c'])
 
 test('T12614', [omit_ways(['ghci'])], compile_and_run, ['T12614_c.c'])
-
-test('PrimFFIInt8', [omit_ways(['ghci'])], compile_and_run, ['PrimFFIInt8_c.c'])
-
-test('PrimFFIWord8', [omit_ways(['ghci'])], compile_and_run, ['PrimFFIWord8_c.c'])