29 lines
480 B
Plaintext
29 lines
480 B
Plaintext
(* 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
|
|
|