path: root/libraries/base/tests/T7653.hs

import Control.Monad;
import Control.Concurrent

main :: IO ()
main = replicateM_ 1000000 (forkIO (threadDelay 1))