contrib/bc/Test/aryprm.b

   1 define p ( x[] ) {
   2   auto i;
   3   for (i=0; i<10; i++) x[i];
   4 }
   5
   6 define m ( x[] ) {
   7   auto i;
   8   for (i=0; i<10; i++) x[i] *= 2;
   9 }
  10
  11 scale = 20;
  12 for (i=0; i<10; i++) a[i] = sqrt(i);
  13
  14 p(a[]);
  15 m(a[]);
  16 p(a[]);