tock-mirror/fco2/testcases/expressions.occ
2007-04-06 23:12:21 +00:00

22 lines
263 B
Plaintext

PROC p (VAL INT x, y, INT z)
z := x + y
:
INT FUNCTION f (VAL INT x, y)
VALOF
SKIP
RESULT x + y
:
PROC test.expressions ()
INT a:
INT b:
INT c:
SEQ
a := 1
b := 2
c := f (a, b)
c := (42 * a) + (b - (72 / c))
p (a, b, c)
: