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


1
2
3
4
5
6
7
8
9
10
11

module Main where

import Control.Concurrent

main = do
  t <- forkIO (return ())
  threadCapability t >>= print
  t <- forkOn 0 (return ())
  threadCapability t >>= print
  t <- forkOn 1 (return ())
  threadCapability t >>= print