heptagon/test/bad/when_merge1.ept

(* pour debugger ../../compiler/hec.byte -i -v -I ../../lib t1.ept *)
(* pour debugger
   directory parsing global analysis dataflow sequential sigali simulation translation main
   set arguments -v ../test/good/t1.ept *)

type t = A | B

node fusion(x1:int on B(c); x2:int; c:t) returns (y :int)
  let
    y = merge c (A -> x1) (B -> x2)
  tel
parsing clocks. 2011-05-10 21:55:53 +02:00			`(* pour debugger ../../compiler/hec.byte -i -v -I ../../lib t1.ept *)`
			`(* pour debugger`
			`directory parsing global analysis dataflow sequential sigali simulation translation main`
			`set arguments -v ../test/good/t1.ept *)`

			`type t = A \| B`

			`node fusion(x1:int on B(c); x2:int; c:t) returns (y :int)`
			`let`
			`y = merge c (A -> x1) (B -> x2)`
some more tests 2011-05-23 14:04:11 +02:00			`tel`