[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / numeric / should_run / arith001.hs

diff --git a/ghc/tests/numeric/should_run/arith001.hs b/ghc/tests/numeric/should_run/arith001.hs
deleted file mode 100644 (file)
index 32e2906..0000000
--- a/ghc/tests/numeric/should_run/arith001.hs
+++ /dev/null
@@ -1,28 +0,0 @@
--- !!! conversions: Double <=> Rational/Integer things
---
-import Ratio
-
-main = putStr (show r42  ++ "\n" ++
-              show nu42 ++ ", " ++
-              show de42 ++ "\n" ++
-              show nu42d ++ ", " ++
-              show de42d ++ "\n" ++
-              show s2 ++ ", " ++
-              show e2 ++ "\n" ++
-              show s ++ ", " ++
-              show e ++ "\n" )
-  where  
-    d42 :: Double
-    r42 :: Rational
-    nu42, de42 :: Integer
-    nu42d, de42d :: Double
-
-    d42  = 42
-    r42  = toRational d42
-    nu42 = numerator   r42
-    de42 = denominator r42
-    nu42d= fromInteger nu42
-    de42d= fromInteger de42
-
-    (s,e)= decodeFloat (nu42d / de42d )   
-    (s2,e2) = decodeFloat d42