1"This tests arrays!
2"
3define p(a[],x,y) {
4  auto i;
5  for (i=x; i<y; i++) a[i];
6}
7
8define m(a[],x,y) {
9  auto i;
10  for (i=x; i<y; i++) a[i] = i;
11}
12
13define m1(*a[],x,y) {
14  auto i;
15  print "m1\n"
16  for (i=x; i<y; i++) a[i] = i;
17}
18
19for (i=0; i<10; i++) a[i] = i;
20j = p(a[],0,10);
21
22j = m(b[],0,10);
23j = p(b[],0,10);
24
25print "---\n";
26j = m1(b[],0,10);
27j = p(b[],0,10);
28
29quit
30
31