Fix parsing of RealFloat with huge exponents (#7034).
[packages/base.git] / tests / T7034.hs
1 main :: IO ()
2 main = do
3 print $ r "1E100000"
4 print $ r "1E100000000"
5 print $ r "1E100000000000"
6 print $ r "1E100000000000000"
7 print $ r "1E100000000000000000"
8 print $ r "1E100000000000000000000"
9
10 r :: String -> Double
11 r = read