[project @ 2001-08-22 12:24:41 by simonmar]
[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc029.hs
diff --git a/ghc/tests/concurrent/should_run/conc029.hs b/ghc/tests/concurrent/should_run/conc029.hs
deleted file mode 100644 (file)
index b0fab12..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-module Main where
-
-import Exception
-import Concurrent
-import Prelude hiding (catch)
-
--- the BlockOnDeadMVar exception doesn't cause any output by default
-
-main = do
-  forkIO (do m <- newEmptyMVar; takeMVar m)
-  print (sum [1..10000])