heptagon/test/bad/t6.ept

11 lines
235 B
Plaintext

(* This example must be REJECTED because of "if z then...",
whereas z is of type int *)
node h(z: int; 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