testsuite/tests/concurrent/should_run/conc029.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE CPP #-}
module Main where

import Control.Exception
import Control.Concurrent

-- the BlockOnDeadMVar exception doesn't cause any output by default

main = do
  forkIO (do m <- newEmptyMVar; takeMVar m)
  print (sum [1..10000])