heptagon/test/good/t17.ept

node h(z: bool; x, y: int) returns (o2: int)
  var o1, o: int;
  let
    (o1, o2) = if z then (1, 2) else (3, 4);
    o = 0 -> pre o + 2
  tel

node main() returns (o:int)
let
  o = h(false -> true, 0, 0)
tel
Add lib/pervasives.epi, tests, tools 2010-06-21 12:11:06 +02:00			`node h(z: bool; x, y: int) returns (o2: int)`
			`var o1, o: int;`
			`let`
			`(o1, o2) = if z then (1, 2) else (3, 4);`
			`o = 0 -> pre o + 2`
			`tel`

Some more main in tests 2012-07-18 16:54:44 +02:00			`node main() returns (o:int)`
			`let`
			`o = h(false -> true, 0, 0)`
			`tel`