testsuite/tests/deSugar/should_compile/ds013.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

-- !!! ds013 -- simple Rational arithmetic

module ShouldCompile where

f = 1.5 + 2.0 - 3.14159265 + 4.2 * 5.111111111111111111111111111

g :: Float
g = 1.5 + 2.0 - 3.14159265 + 4.2 * 5.111111111111111111111111111

h :: Double
h = 1.5 + 2.0 - 3.14159265 + 4.2 * 5.111111111111111111111111111

{- later
g x = x + (f x)

h x = 1.0e1000000000 + 1.0e1000000000

i x = 1.0e-1000000000 + 1.0e-1000000000

j x = 1111111111.222222222222222e333333333333333
    * 4444444444.555555555555555e-66666666666666
-}