[project @ 1999-07-27 10:53:53 by sof]

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

diff --git a/ghc/tests/codeGen/should_run/cg036.hs b/ghc/tests/codeGen/should_run/cg036.hs
index b32f67f..40bfa74 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg036.hs
+++ b/ghc/tests/codeGen/should_run/cg036.hs
@@ -1,16 +1,16 @@
---!! Won't compile unless the compile succeeds on
---!! the "single occurrence of big thing in a duplicated small thing"
---!! inlining old-chestnut.  WDP 95/03
+-- !! Won't compile unless the compile succeeds on
+-- !! the "single occurrence of big thing in a duplicated small thing"
+-- !! inlining old-chestnut.  WDP 95/03
 --
 module Main ( main, g ) where
 
-main = putStr (shows (g 42) "\n")
+main = putStr (shows (g 42 45 45) "\n")
 
-g :: Int -> Int -> Int -> (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)
+g :: Int -> Int -> Int -> [Int]
 
 g x y z
   = let
        f a b = a + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b + b * a * b - a + a + b
        g c = f c c
     in
-    (g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y)
+    [g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y, g z, g x, g y]