heptagon/test/good/t13.ept
Gwenaël Delaval 90e391f4df Modified test t13.ept
Modified test t13.ept so that the output is not always "0"
(useful for further comparisons)
2012-07-16 01:00:09 +02:00

24 lines
377 B
Plaintext

node count(c : int; r : bool) returns (res : int)
let
res = c fby (if r then 0 else res + c);
tel
node fourth() returns (res : bool)
var tmp : int;
let
tmp = 0 fby (if res then tmp + 1 else 0);
res = tmp = 0;
tel
node foo() returns (res : int)
let
res = 0 fby (3 + res);
tel
(* Unary operators *)
node main() returns (c : int)
let
c = count(foo(), fourth());
tel