1 files changed, 38 insertions, 0 deletions
diff --git a/testsuite/tests/ffi/should_run/2594.hs b/testsuite/tests/ffi/should_run/2594.hs
new file mode 100644
index 0000000000..cdfcfc71fd
--- /dev/null
+++ b/testsuite/tests/ffi/should_run/2594.hs
@@ -0,0 +1,38 @@
+{-# options -fffi #-}
+
+import Foreign
+import Foreign.C.Types
+
+main = do
+    wprint <- wrap8 print
+    call8 wprint
+    wprint <- wrap16 print
+    call16 wprint
+    wprint <- wrap32 print
+    call32 wprint
+    wprint <- wrap64 print
+    call64 wprint
+
+foreign import ccall "wrapper"
+    wrap8 :: (Int8 -> IO ()) -> IO (FunPtr (Int8 -> IO ()))
+
+foreign import ccall "FunPtrBug.h call8"
+    call8 :: FunPtr (Int8 -> IO ()) -> IO ()
+
+foreign import ccall "wrapper"
+    wrap16 :: (Int16 -> IO ()) -> IO (FunPtr (Int16 -> IO ()))
+
+foreign import ccall "FunPtrBug.h call16"
+    call16 :: FunPtr (Int16 -> IO ()) -> IO ()
+
+foreign import ccall "wrapper"
+    wrap32 :: (Int32 -> IO ()) -> IO (FunPtr (Int32 -> IO ()))
+
+foreign import ccall "FunPtrBug.h call32"
+    call32 :: FunPtr (Int32 -> IO ()) -> IO ()
+
+foreign import ccall "wrapper"
+    wrap64 :: (Int64 -> IO ()) -> IO (FunPtr (Int64 -> IO ()))
+
+foreign import ccall "FunPtrBug.h call64"
+    call64 :: FunPtr (Int64 -> IO ()) -> IO ()