ghc/tests/numeric/should_run/num008.hs

   1 -- showing floats
   2 --
   3 module Main(main) where
   4
   5 import Numeric
   6
   7 main =
   8  do
   9   putStrLn (showEFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Double) [])
  10   putStrLn (showFFloat (Just 7) (1.82173691287639817263897126389712638972163::Double) [])
  11   putStrLn (showGFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Double) [])
  12   putStrLn (showEFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Float) [])
  13   putStrLn (showEFloat (Just 10) (0.0::Double) [])
  14   putStrLn (showEFloat (Just 0) (2.3::Double) [])
  15   putStrLn (showEFloat Nothing (0.0::Double) [])
  16   putStrLn (showEFloat Nothing (3::Float) [])
  17   putStrLn (showEFloat Nothing (0.5::Float) [])
  18   putStrLn (show (floatToDigits 10 (0.0::Double)))
  19   putStrLn (showFFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Float) [])
  20   putStrLn (showGFloat (Just 7) (1.82173691287639817263897126389712638972163e-300::Float) [])
  21