Blame Test/arrayp.b

Packit 70b277
"This tests arrays!
Packit 70b277
"
Packit 70b277
define p(a[],x,y) {
Packit 70b277
  auto i;
Packit 70b277
  for (i=x; i
Packit 70b277
}
Packit 70b277
Packit 70b277
define m(a[],x,y) {
Packit 70b277
  auto i;
Packit 70b277
  for (i=x; i
Packit 70b277
}
Packit 70b277
Packit 70b277
define m1(*a[],x,y) {
Packit 70b277
  auto i;
Packit 70b277
  print "m1\n"
Packit 70b277
  for (i=x; i
Packit 70b277
}
Packit 70b277
Packit 70b277
for (i=0; i<10; i++) a[i] = i;
Packit 70b277
j = p(a[],0,10);
Packit 70b277
Packit 70b277
j = m(b[],0,10);
Packit 70b277
j = p(b[],0,10);
Packit 70b277
Packit 70b277
print "---\n";
Packit 70b277
j = m1(b[],0,10);
Packit 70b277
j = p(b[],0,10);
Packit 70b277
Packit 70b277
quit
Packit 70b277