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

[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
deleted file mode 100644 (file)
index 40bfa74..0000000
--- a/ghc/tests/codeGen/should_run/cg036.hs
+++ /dev/null
@@ -1,16 +0,0 @@
--- !! 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 45 45) "\n")
-
-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]