X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2FcodeGen%2Fshould_run%2Fcg036.hs;h=40bfa74328b02983c566689e4afa67acce4ff8ee;hb=bc3bcc2c6b53b712b5a4e290581ef82dd73cd528;hp=b32f67f1dd3cf68ddbdeae9c00f80a51db3b53f2;hpb=80d19100a3aabd62ece8582332d6b5ea6f66bdf5;p=ghc-hetmet.git

diff --git a/ghc/tests/codeGen/should_run/cg036.hs b/ghc/tests/codeGen/should_run/cg036.hs
index b32f67f..40bfa74 100644
--- 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]