Commit 5296caf0 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #5314

parent ae6129e4
import Control.Concurrent
import Control.Monad (forever)
main = do
empty <- newEmptyMVar
exit <- newEmptyMVar
_ <- forkIO $ threadDelay 200000 >> putMVar exit ()
_ <- forkIO $ takeMVar empty >> return ()
_ <- forkIO $ print (sum [1..10000])
takeMVar exit
......@@ -25,3 +25,10 @@ test('T3001-2',
test('scc001', [expect_broken(4414), req_profiling],
run_command, ['$MAKE -s --no-print-directory scc001'])
test('5314',
composes([only_ways(prof_ways + extra_prof_ways),
extra_ways(extra_prof_ways),
req_profiling]),
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