1 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/tests/rts/4059.hs b/testsuite/tests/rts/4059.hs
new file mode 100644
index 0000000000..5af5bbc4aa
--- /dev/null
+++ b/testsuite/tests/rts/4059.hs
@@ -0,0 +1,22 @@
+
+{-# LANGUAGE ForeignFunctionInterface #-}
+
+import Foreign hiding ( unsafePerformIO )
+import Foreign.C
+import System.IO.Unsafe
+
+d f x = unsafePerformIO $ do
+    g <- mkfun f
+    r <- deriv g x 1
+    return r
+
+main = do
+    print $ d (\x -> x * 2) 3
+    print $ d (\x -> x * d (\y -> x + y) 5) 7
+
+
+foreign import ccall safe "deriv"
+    deriv :: FunPtr (CDouble -> CDouble) -> CDouble -> CDouble -> IO CDouble
+
+foreign import ccall safe "wrapper"
+    mkfun :: (CDouble -> CDouble) -> IO (FunPtr (CDouble -> CDouble))