[project @ 1997-09-24 11:08:42 by simonm]

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

diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs
index c39dc41..8b11d63 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg026.hs
+++ b/ghc/tests/codeGen/should_run/cg026.hs
@@ -135,6 +135,10 @@ test_floats
     fill_in arr_in# first# last#
       = if (first# ># last#)
        then returnST ()
+{-     else let e = ((fromInt (I# first#)) * pi)
+            in trace (show e) $ writeFloatArray arr_in# (I# first#) e >>
+            fill_in arr_in# (first# +# 1#) last#
+-}
        else writeFloatArray arr_in# (I# first#) ((fromInt (I# first#)) * pi) >>
             fill_in arr_in# (first# +# 1#) last#