[project @ 1997-09-05 14:11:05 by simonm]
[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg001.hs
1 --!! cg001: main = -42 -- take 1
2
3 main = print ( f () )
4      where
5         f :: a -> Int
6         f x = -42