heptagon/test/good/t11.ept

(* Unary operators *)
node f(x:bool;y:int) returns (z:int;t:bool)
let
  z = ~- y;
  t = not x;
tel

node g(a:bool;b:int) returns (z:int;t:bool)
let
  (z,t) = f(a,b);
tel

node main() returns (z:int;t:bool)
let
  (z,t) = g(false fby true, 0 fby 2 fby -3);
tel
Add lib/pervasives.epi, tests, tools 2010-06-21 12:11:06 +02:00			`(* Unary operators *)`
			`node f(x:bool;y:int) returns (z:int;t:bool)`
			`let`
			`z = ~- y;`
			`t = not x;`
			`tel`

			`node g(a:bool;b:int) returns (z:int;t:bool)`
			`let`
			`(z,t) = f(a,b);`
			`tel`

Some more main in tests 2012-07-18 16:54:44 +02:00			`node main() returns (z:int;t:bool)`
			`let`
			`(z,t) = g(false fby true, 0 fby 2 fby -3);`
			`tel`