path: root/testsuite/tests/concurrent/should_run/T13330.hs

module Main where
import Control.Concurrent
import Control.Exception

main = forkIO (error "Successful exception") >> threadDelay 100000