libraries/base/tests/T7034.hs


1
2
3
4
5
6
7
8
9
10
11

main :: IO ()
main = do
  print $ r "1E100000"
  print $ r "1E100000000"
  print $ r "1E100000000000"
  print $ r "1E100000000000000"
  print $ r "1E100000000000000000"
  print $ r "1E100000000000000000000"

r :: String -> Double
r = read