path: root/testsuite/tests/codeGen/should_run/cgrun001.hs

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

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