testsuite/tests/concurrent/should_run/4030.hs


1
2
3
4
5
6
7
8

module Main where

import Control.Concurrent ( forkIO, killThread )
import Control.Exception  ( block )

main :: IO ()
main = do tid <- block $ forkIO $ let x = x in x
          killThread tid