LXR busybox/testsuite/bc

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