1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc059.hs b/testsuite/tests/concurrent/should_run/conc059.hs
new file mode 100644
index 0000000000..bed28d27cb
--- /dev/null
+++ b/testsuite/tests/concurrent/should_run/conc059.hs
@@ -0,0 +1,26 @@
+{-# LANGUAGE CPP, ForeignFunctionInterface #-}
+module Test where
+
+import Control.Concurrent
+import Control.Monad
+import Foreign.C
+
+-- See also conc059_c.c
+--
+-- This test fires off some threads that will return after the RTS has
+-- shut down.  This should not crash or confuse the RTS.
+
+f :: Int -> IO ()
+f x = do
+  print x
+  replicateM_ 10 $ forkIO $ do usleep (fromIntegral x); putStrLn "hello"
+  return ()
+
+foreign export ccall "f" f :: Int -> IO ()
+
+#ifdef mingw32_HOST_OS
+foreign import stdcall safe "Sleep" _sleep :: Int -> IO ()
+usleep n = _sleep (n `quot` 1000)
+#else
+foreign import ccall safe "usleep" usleep  :: Int -> IO ()
+#endif