[project @ 1999-01-23 18:10:00 by sof]
[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