testsuite/tests/profiling/should_run/5314.hs


1
2
3
4
5
6
7
8
9
10

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