86048dcbe39652dfa9a0cd7ab2069670ec3bcac0
[ghc.git] / testsuite / tests / numeric / should_run / arith017.hs
1 -- !!! test for a bug in integer->{Int,Word}64 conversion in GHC 5.04.x
2
3 import Data.Int
4 import Data.Word
5
6 main = do
7 print (fromIntegral ((2^30 -1 + 2^30) - (2^30 + 2^30 :: Integer))
8 :: Data.Int.Int64)
9 print (fromIntegral ((2^30 -1 + 2^30) - (2^30 + 2^30 :: Integer))
10 :: Data.Word.Word64)