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

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

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