testsuite/tests/perf/should_run/T5205.hs


1
2
3
4
5
6
7
8
9
10
11
12
13


import Control.Concurrent
import Control.Monad

main :: IO ()
main = do t <- forkIO (x >> x)
          threadDelay 1000000
          killThread t
          putStrLn "Done"

x :: IO ()
x = forever yield