heptagon/test/good/t3.ept

29 lines
480 B
Text
Raw Normal View History

2010-06-21 12:11:06 +02:00
(* pour debugger
set arguments -v test/good/t3.ept *)
node f(x,z:int) returns (o:int)
2010-12-14 18:36:54 +01:00
var o1:int;r:bool;
2010-06-21 12:11:06 +02:00
let
2010-12-14 18:36:54 +01:00
r = false;
2010-06-21 12:11:06 +02:00
automaton
2011-05-23 14:04:11 +02:00
state Init
do o = 1 + 2
until (o = 0) then Two
2010-06-21 12:11:06 +02:00
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
2012-07-18 16:54:44 +02:00
node main() returns (o:int)
let
o = f(0,0);
tel