[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc024.hs

diff --git a/ghc/tests/concurrent/should_run/conc024.hs b/ghc/tests/concurrent/should_run/conc024.hs
deleted file mode 100644 (file)
index d195b97..0000000
--- a/ghc/tests/concurrent/should_run/conc024.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-module Main where
-
-import Exception
-import Concurrent
-import Prelude hiding (catch)
-
--- illustrates the BlockOnDeadMVar exception
-
-main = do
-  id <- myThreadId
-  forkIO (catch (do m <- newEmptyMVar; takeMVar m)
-               (\e -> throwTo id e))
-  catch (print (sum [1..1000000]))
-       (\e -> print e)