summaryrefslogtreecommitdiff
path: root/testsuite/tests/concurrent/should_run/conc069.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/concurrent/should_run/conc069.hs')
-rw-r--r--testsuite/tests/concurrent/should_run/conc069.hs19
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc069.hs b/testsuite/tests/concurrent/should_run/conc069.hs
new file mode 100644
index 0000000000..fd757133a5
--- /dev/null
+++ b/testsuite/tests/concurrent/should_run/conc069.hs
@@ -0,0 +1,19 @@
+import Control.Concurrent
+import Control.Exception
+
+main = do
+ -- stat -- main thread is not bound in GHCi
+ m <- newEmptyMVar
+ forkIO (do stat; putMVar m ())
+ takeMVar m
+ block $ forkIO (do stat; putMVar m ())
+ takeMVar m
+ forkOS (do stat; putMVar m ())
+ takeMVar m
+ block $ forkOS (do stat; putMVar m ())
+ takeMVar m
+
+stat = do
+ x <- isCurrentThreadBound
+ y <- blocked
+ print (x,y)