[project @ 1999-01-23 18:10:00 by sof]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg034.hs

diff --git a/ghc/tests/codeGen/should_run/cg034.hs b/ghc/tests/codeGen/should_run/cg034.hs
index 2f01c9b..d1016d3 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg034.hs
+++ b/ghc/tests/codeGen/should_run/cg034.hs
@@ -1,3 +1,4 @@
+-- !! fromRational woes
 import Ratio -- 1.3
 
 main = putStr (
@@ -32,8 +33,6 @@ main = putStr (
     y_f = 1.82173691287639817263897126389712638972163e-300
     y_d = 1.82173691287639817263897126389712638972163e-300
 
---!! fromRational woes
-
 fromRationalX :: (RealFloat a) => Rational -> a
 fromRationalX r =
        let