heptagon/test/good/t10.ept

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

node f(x:int) returns (y:int)
  let
    y = 2*x;
  tel

node g(x:int) returns (y:int)
  let
    y = 3*x;
  tel

node h(x1,x2:int) returns (y:int)
  let
    y = f(x1) + g(x2)
  tel

node main() returns (y:int)
let
  y = h(5,7);
tel
Add lib/pervasives.epi, tests, tools 2010-06-21 12:11:06 +02:00			`(* pour debugger`
			`set arguments -v test/good/t10.ept *)`

			`node f(x:int) returns (y:int)`
			`let`
			`y = 2*x;`
			`tel`

			`node g(x:int) returns (y:int)`
			`let`
			`y = 3*x;`
			`tel`

			`node h(x1,x2:int) returns (y:int)`
			`let`
			`y = f(x1) + g(x2)`
			`tel`
Some more main in tests 2012-07-18 16:54:44 +02:00
			`node main() returns (y:int)`
			`let`
			`y = h(5,7);`
			`tel`