testsuite/tests/rts/T7087.hs


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