diff options
Diffstat (limited to 'testsuite/tests/concurrent/should_run/T367.hs')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/T367.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/testsuite/tests/concurrent/should_run/T367.hs b/testsuite/tests/concurrent/should_run/T367.hs deleted file mode 100644 index 52f41a38a1..0000000000 --- a/testsuite/tests/concurrent/should_run/T367.hs +++ /dev/null @@ -1,10 +0,0 @@ -{-# 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" |