summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/codeGen/should_run/cgrun005.hs
blob: 4159d4c8825821c6cd6b7958518ce760fcf758f3 (plain)
1
2
3
4
5
6
-- !! answer: 65532

main = print foo

foo :: Int
foo = ((1 + 2 + 32767 - 4) * 6) --later? `div` 3