testsuite/tests/concurrent/should_run/conc067.hs


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

-- Test for bug #418

module Main where

import Control.Concurrent
import System.IO.Unsafe (unsafeInterleaveIO)

main = do
    v <- newEmptyMVar
    a <- unsafeInterleaveIO (readMVar v)
    t <- forkIO (print a)
    threadDelay (100*1000)
    killThread t
    forkIO $ print a
    putMVar v ()