heptagon/test/good/t3.ept
2012-07-18 16:54:44 +02:00

28 lines
480 B
Text

(* pour debugger
set arguments -v test/good/t3.ept *)
node f(x,z:int) returns (o:int)
var o1:int;r:bool;
let
r = false;
automaton
state Init
do o = 1 + 2
until (o = 0) then Two
state Two do o = 2 + 3 until (o = 1) then Two
end;
automaton
state One
do o1 = 2
until (o = 2) then One
state Three
do o1 = 3
until (o = 3) then One
end
tel
node main() returns (o:int)
let
o = f(0,0);
tel