heptagon/test/bad/t6.ept

11 lines
235 B
Plaintext
Raw Normal View History

2010-06-21 12:11:06 +02:00
(* 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