path: root/testsuite/tests/primops/should_run/T23071.hs

import Control.Monad
import GHC.Conc.Sync

main = replicateM_ 1000000 $ listThreads >>= print