Commit 3efab167 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-12-13 14:26:01 by simonmar]

Test for bug in integerTo{Int,Word}, bug #64652927
parent 64d815d6
......@@ -29,3 +29,4 @@ test('num009', normal, compile_and_run, [''])
test('num010', normal, compile_and_run, [''])
test('num011', normal, compile_and_run, [''])
test('arith016', normal, compile_and_run, ['-fglasgow-exts'])
test('arith017', normal, compile_and_run, [''])
-- !!! test for a bug in integer->{Int,Word}64 conversion in GHC 5.04.x
import Data.Int
import Data.Word
main = do
print (fromIntegral ((2^30 -1 + 2^30) - (2^30 + 2^30 :: Integer))
:: Data.Int.Int64)
print (fromIntegral ((2^30 -1 + 2^30) - (2^30 + 2^30 :: Integer))
:: Data.Word.Word64)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment