ghc/tests/codeGen/should_run/cg022.hs

   1 --!!! tests stack stubbing: if "f" doesn't stub "ns",
   2 --!!! the program has a space leak.
   3
   4 module Main where
   5
   6 main = f (putStr "a")
   7          (take 1000000 (repeat True))
   8          (putStr "b")
   9
  10 f a ns b = if last ns then a else b