ghc/compiler/tests/deSugar/ds013.hs

   1 --!!! ds013 -- simple Rational arithmetic
   2
   3 module Tests where
   4
   5 f = 1.5 + 2.0 - 3.14159265 + 4.2 * 5.111111111111111111111111111
   6
   7 g :: Float
   8 g = 1.5 + 2.0 - 3.14159265 + 4.2 * 5.111111111111111111111111111
   9
  10 h :: Double
  11 h = 1.5 + 2.0 - 3.14159265 + 4.2 * 5.111111111111111111111111111
  12
  13 {- later
  14 g x = x + (f x)
  15
  16 h x = 1.0e1000000000 + 1.0e1000000000
  17
  18 i x = 1.0e-1000000000 + 1.0e-1000000000
  19
  20 j x = 1111111111.222222222222222e333333333333333
  21     * 4444444444.555555555555555e-66666666666666
  22 -}
  23