Commit 52eb09cc authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a test for trac #867

parent a7a6f78a
......@@ -43,4 +43,5 @@ test('num011', skip_if_fast, compile_and_run, [''])
test('arith016', compose(skip_if_fast,only_compiler_types(['ghc'])), compile_and_run, ['-fglasgow-exts'])
test('arith017', skip_if_fast, compile_and_run, [''])
test('arith018', skip_if_fast, compile_and_run, [''])
test('arith019', skip_if_fast, compile_and_run, [''])
test('expfloat', skip_if_fast, compile_and_run, ['-fglasgow-exts'])
-- demonstrates a bug in mulIntMayOflo in GHC 6.5 on 64-bit arches
-- (trac #867).
-- It thought it could represent 3049800625 * 3049800625 in an I#.
i :: Integer
i = 3049800625
main :: IO ()
main = print (i * i)
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