Merge from vendor branch LIBSTDC++:
[dragonfly.git] / 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[]);