testsuite/tests/concurrent/should_run/T367.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE MagicHash #-}

import Control.Concurrent
import qualified Data.Vector as U

main = do
    t <- forkIO (U.sum (U.enumFromTo 1 (1000000000 :: Int)) `seq` return ())
    threadDelay 10
    killThread t
    putStrLn "Done"