Commit 125a20ff authored by Simon Marlow's avatar Simon Marlow

Test #5993

parent f9e8ebb2
import Control.Concurrent
main = do
m <- newEmptyMVar
forkIO $ putStrLn "Hello World!" >> putMVar m ()
takeMVar m
......@@ -129,3 +129,4 @@ test('T5423',
['$MAKE -s --no-print-directory T5423'])
test('5993', extra_run_opts('+RTS -k8 -RTS'), compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment