X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds013.hs;fp=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds013.hs;h=0000000000000000000000000000000000000000;hb=29b46083beaa048af4b4a68e8f96909ac98a639f;hp=9b5b4b3454b9f78bd214a201739f2cfd90e7226c;hpb=3436a37c72644f82471a7d8c684d67438b86cc3a;p=ghc-hetmet.git diff --git a/ghc/compiler/tests/deSugar/ds013.hs b/ghc/compiler/tests/deSugar/ds013.hs deleted file mode 100644 index 9b5b4b3..0000000 --- a/ghc/compiler/tests/deSugar/ds013.hs +++ /dev/null @@ -1,23 +0,0 @@ ---!!! ds013 -- simple Rational arithmetic - -module Tests 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 --} -