path: root/testsuite/tests/rts/T5993.hs

import Control.Concurrent
main = do
  m <- newEmptyMVar
  forkIO $ putStrLn "Hello World!" >> putMVar m ()
  takeMVar m