[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg001.hs

--!! cg001: main = -42 -- take 1

main = print ( f () )
     where
        f :: a -> Int
        f x = -42