Add tests from testsuite/tests/h98
[ghc-base.git] / tests / readFloat.hs
1
2 import Numeric
3
4 main :: IO ()
5 main = putStrLn $ showFloat (read "" :: Float) ""