heptagon/test/good/type_alias.ept

const n:int = 10

type metres = int
type tableau = int^n
type matrice = metres^n^n

fun f(a:metres) returns (o: metres)
let
  o = a + 1;
tel

fun g(a:tableau) returns (o:tableau)
let
  o = map<<n>> f (a);
tel

fun h(a:matrice) returns (o:matrice)
var x : matrice;
let
  x = a;
  o = map<<n>> g (x);
tel
Added test for alias types 2010-07-27 09:29:20 +02:00			`const n:int = 10`

			`type metres = int`
			`type tableau = int^n`
			`type matrice = metres^n^n`

			`fun f(a:metres) returns (o: metres)`
			`let`
			`o = a + 1;`
			`tel`

			`fun g(a:tableau) returns (o:tableau)`
			`let`
fixed tests to the new iterator syntax. Changed (( and )) to (< and >) since it's very common to write )) ! 2011-03-21 20:45:48 +01:00			`o = map<<n>> f (a);`
Added test for alias types 2010-07-27 09:29:20 +02:00			`tel`

			`fun h(a:matrice) returns (o:matrice)`
			`var x : matrice;`
			`let`
			`x = a;`
fixed tests to the new iterator syntax. Changed (( and )) to (< and >) since it's very common to write )) ! 2011-03-21 20:45:48 +01:00			`o = map<<n>> g (x);`
Added test for alias types 2010-07-27 09:29:20 +02:00			`tel`