ghc/tests/programs/lennart_range/Main.hs

   1 {-
   2 Date: Thu, 22 Sep 1994 01:59:49 +0200
   3 From: Lennart Augustsson <augustss@cs.chalmers.se>
   4 Message-Id: <199409212359.BAA01719@statler.cs.chalmers.se>
   5 To: glasgow-haskell-bugs@dcs.glasgow.ac.uk
   6 Subject: ghc bug
   7
   8
   9 Some floating constants that are within the floating range
  10 become wrong, e.g.
  11
  12         1.82173691287639817263897126389712638972163e-300::Double
  13
  14         -- Lennart
  15
  16 PS.  Maybe you use fromRational as defined in the Prelude?
  17 That won't do.  It is badly broken, tell me if you want
  18 one that works.
  19 -}
  20
  21 -- I have turned this into a general test of extreme constants.
  22 -- WDP 94/12
  23
  24 main = putStr (shows (1.82173691287639817263897126389712638972163e-300::Double) "\n")