Merge from vendor branch DIFFUTILS:
[dragonfly.git] / contrib / bc / Test / array.b
1 "This tests arrays!
2 "
3 define p(x,y) {
4   auto i;
5   for (i=x; i<y; i++) a[i];
6 }
7
8 for (i=0; i<10; i++) a[i] = i;
9 j = p(0,10);
10
11 for (i=1000; i<1030; i++) a[i] = i;
12 j = p(1000,1030);
13 j = p(0,10);
14