testsuite/bc_array.bc

   1 #! /usr/bin/bc -q
   2
   3 define z(a[]) {
   4         for (i = 0; i < l; ++i) {
   5                 a[i]
   6         }
   7 }
   8
   9 define x(a[]) {
  10
  11         for (i = 0; i < l; ++i) {
  12                 a[i] = -i
  13         }
  14
  15         z(a[])
  16 }
  17
  18 for (i = 0; i < 101; ++i) {
  19         a[i] = i
  20 }
  21
  22 a[104] = 204
  23
  24 l = length(a[])
  25
  26 for (i = 0; i <= l; ++i) {
  27         a[i]
  28 }
  29
  30 z(a[])
  31 x(a[])
  32 z(a[])
  33 l
  34
  35 halt