diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/concurrent/should_run/conc027.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/concurrent/should_run/conc027.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/testsuite/tests/ghc-regress/concurrent/should_run/conc027.hs b/testsuite/tests/ghc-regress/concurrent/should_run/conc027.hs deleted file mode 100644 index 4a04211824..0000000000 --- a/testsuite/tests/ghc-regress/concurrent/should_run/conc027.hs +++ /dev/null @@ -1,9 +0,0 @@ - -import Control.Concurrent - -main = do - m <- newEmptyMVar - end <- newEmptyMVar - forkIO (sequence_ [ putMVar m () | _ <- [1 .. 10000] ]) - forkIO (sequence_ [ takeMVar m | _ <- [1 .. 10000] ] >> putMVar end ()) - takeMVar end |