heptagon/test/good/t2open.ept

(* pour debugger
   set arguments -I test/good -v test/good/t2.ept *)

open T1

type t

type r2
node g(x: bool) returns (o: bool)
  let
    o = f(x)
  tel

node h(x,z,m:int) returns (o:int)
  var last k:int = 0;
      last w: int;
  let
    automaton
      state S1
        var r:int;
        do
         k = m + 2;
         r = k + 3;
         w = 1 + 2;
        until (1 = 0) then S2
           |  (1 = 2) then S1
        unless (2 = last k) then S2
      state S2
        do
         k = 2;
        until (1 = 0) then S2
    end;
    present
      | (x = 0) do o = 2 -> pre o + 2
      | (x = 2) do o = 4
        default do o = 2
    end
  tel


node main() returns (o1,o2:int)
let
  o1 = if (g(false fby true)) then 1 else 2;
  o2 = h(0 fby 1 fby 2, 3, o1-2);
tel