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