ghc/tests/concurrent/should_run/conc027.hs

   1
   2 import Concurrent
   3
   4 main = do
   5   m <- newEmptyMVar
   6   end <- newEmptyMVar
   7   forkIO (sequence_ [ putMVar m () | _ <- [1 .. 10000] ])
   8   forkIO (sequence_ [ takeMVar m   | _ <- [1 .. 10000] ] >> putMVar end ())
   9   takeMVar end