diff options
Diffstat (limited to 'testsuite/tests/deSugar/should_compile/ds013.hs')
| -rw-r--r-- | testsuite/tests/deSugar/should_compile/ds013.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/tests/deSugar/should_compile/ds013.hs b/testsuite/tests/deSugar/should_compile/ds013.hs new file mode 100644 index 0000000000..3fb55ab47c --- /dev/null +++ b/testsuite/tests/deSugar/should_compile/ds013.hs @@ -0,0 +1,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 +-} + |