summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/numeric/should_run/arith009.hs
blob: 43fe1b2923c84f73412a2c029d61fa27f600201b (plain)
1
2
3
4
5
6
-- a prefix minus precedence test

f :: Int -> Int -> Int -> Int
f x y z = - x * y ^ z

main = putStr (shows (f 5 2 3) "\n")