ghc/tests/concurrent/should_run/conc019.hs

   1 import IO
   2 import Concurrent
   3 import Exception
   4
   5 main = do
   6   forkIO (catchAllIO (do { m <- newEmptyMVar; takeMVar m })
   7                      (\e -> putStrLn ("caught: " ++ show e)))
   8   let x = sum [1..10000]
   9   x `seq` print x