386BSD 0.0 development

[unix-history] / usr / src / contrib / bc-1.01 / Test / array.b

"This tests arrays!
"
define p(x,y) {
 auto i;
 for (i=x; i<y; i++) a[i];
}

for (i=0; i<10; i++) a[i] = i;
j = p(0,10);

for (i=1000; i<1030; i++) a[i] = i;
j = p(1000,1030);
j = p(0,10);