heptagon/test/good/t9.ept

12 lines
263 B
Text
Raw Normal View History

2010-06-21 12:11:06 +02:00
(* 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;
2010-06-21 12:11:06 +02:00
| false do (o2, o1) = (3, 3);
end
tel