[project @ 2000-10-12 11:47:25 by sewardj]
[ghc-hetmet.git] / ghc / tests / numeric / should_run / arith009.hs
1 -- a prefix minus precedence test
2
3 f :: Int -> Int -> Int -> Int
4 f x y z = - x * y ^ z
5
6 main = putStr (shows (f 5 2 3) "\n")