diff options
Diffstat (limited to 'testsuite/tests/concurrent/should_run/conc068.hs')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc068.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc068.hs b/testsuite/tests/concurrent/should_run/conc068.hs new file mode 100644 index 0000000000..eb90d06591 --- /dev/null +++ b/testsuite/tests/concurrent/should_run/conc068.hs @@ -0,0 +1,14 @@ +import Control.Concurrent +import Control.Exception +import GHC.Conc + +-- test forkBlockIO +main = do + main_thread <- myThreadId + m <- newEmptyMVar + sub_thread <- block $ forkIO $ + sum [1..100000] `seq` + throwTo main_thread (ErrorCall "foo") + killThread sub_thread + putStrLn "oops" + |