1 files changed, 0 insertions, 19 deletions
diff --git a/testsuite/tests/ghc-regress/ffi/should_run/fptrfail01.hs b/testsuite/tests/ghc-regress/ffi/should_run/fptrfail01.hs
deleted file mode 100644
index 97b331e96b..0000000000
--- a/testsuite/tests/ghc-regress/ffi/should_run/fptrfail01.hs
+++ /dev/null
@@ -1,19 +0,0 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
-
-module Main where
-
-import Foreign
-import GHC.ForeignPtr
-
-{-# INCLUDE "fptrfail01.h" #-}
-
-foreign import ccall "&f" fptr :: FunPtr (Ptr Int -> IO ())
-
-main :: IO ()
-main = do
-    with (33 :: Int) test
-    where
-        test p = do
-            f <- newForeignPtr_ p
-            addForeignPtrFinalizer fptr f
-            addForeignPtrConcFinalizer f (putStrLn "Haskell finalizer")