ghc/tests/codeGen/should_run/cg036.hs

   1 -- !! Won't compile unless the compile succeeds on
   2 -- !! the "single occurrence of big thing in a duplicated small thing"
   3 -- !! inlining old-chestnut.  WDP 95/03
   4 --
   5 module Main ( main, g ) where
   6
   7 main = putStr (shows (g 42 45 45) "\n")
   8
   9 g :: Int -> Int -> Int -> [Int]
  10
  11 g x y z
  12   = let
  13         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
  14         g c = f c c
  15     in
  16     [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]