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) "\n")
   8
   9 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)
  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)