20 lines
385 B
Plaintext
20 lines
385 B
Plaintext
(* pour debugger
|
|
set arguments -v test/good/t9.ept *)
|
|
|
|
node f(x,z:int) returns (o1,o2:int)
|
|
let
|
|
switch (x = z)
|
|
| true var o12: int; o22: int;
|
|
do (o12, o22) = (1, 2); o1 = o12; o2 = o22;
|
|
| false do (o2, o1) = (3, 3);
|
|
end
|
|
tel
|
|
|
|
node main() returns (o1,o2:int)
|
|
var x,z:int;
|
|
let
|
|
x = 0 fby 1 fby 2 fby x;
|
|
z = 1 fby 2 fby z;
|
|
(o1,o2) = f(x,z);
|
|
tel
|