Commit db8863ca authored by Simon Marlow's avatar Simon Marlow

add test for #1861

parent 94d386b8
import System.Environment
main = do [x] <- getArgs
print (read x < (1e400 :: Double))
print (read x < (-1e400 :: Double))
print (read x == (0/0 :: Double))
-- the last doesn't get constant-folded to NaN, so we're not really
-- testing properly here. Still, we might manage to constant fold
-- this in the future, so I'll leave it in place.
......@@ -66,3 +66,5 @@ test('1852', normal, compile_and_run, [''])
test('2080', normal, compile_and_run, [''])
test('cg060', extra_run_opts('+RTS -K64k -RTS'), compile_and_run, [''])
test('1861', extra_run_opts('0'), compile_and_run, [''])
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