blob: bf9a8fdb737513f26c71d2ff58ef381eab7a5b13 (
plain)
1
2
3
4
5
6
7
8
|
import Control.Concurrent
main = do
t <- myThreadId
forkIO (threadDelay 100000 >> killThread t)
threadDelay . fromInteger $
min 9223372036840001 (fromIntegral (maxBound :: Int))
-- caused an overflow in 7.4.2, non-threaded RTS
|