[project @ 2005-02-16 10:15:05 by simonmar]

computers have got a little fast for this test

testsuite/tests/ghc-regress/concurrent/should_run/conc019.hs

@@ -8,5 +8,5 @@ import Control.Exception
 main = do
   forkIO (Control.Exception.catch (do { m <- newEmptyMVar; takeMVar m })
 		          (\e -> putStrLn ("caught: " ++ show e)))
-  let x = sum [1..100000]
+  let x = sum [1..500000]
   x `seq` print x

testsuite/tests/ghc-regress/concurrent/should_run/conc019.stdout

 caught: thread blocked indefinitely
-5000050000
+125000250000