heptagon/test/good/t11.ept

17 lines
259 B
Text
Raw Normal View History

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
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