Add tests from testsuite/tests/h98
[ghc-base.git] / tests / enumDouble.hs
1
2 main :: IO ()
3 main = print (succ (1.0e20 :: Double))