xref: /freebsd/contrib/bc/tests/bc/errors/37.txt (revision 12e0d316644a4f80f5f1f78cf07bd93def43b1ca)
1*12e0d316SStefan Eßerprint f
2*12e0d316SStefan Eßerif(6)H
3*12e0d316SStefan Eßerif(6)streafoob#! /q
4*12e0d316SStefan Eßer
5*12e0d316SStefan Eßerdefine printarray(a[], len) {
6*12e0d316SStefan Eßer
7*12e0d316SStefan Eßer	auto i
8*12e0d316SStefan Eßer
9*12e0d316SStefan Eßer	for (i = 0; i < len; ++i) {
10*12e0d316SStefan Eßer		m[i]
11*12e0d316SStefan Eßer	}
12*12e0d316SStefan Eßer}
13*12e0d316SStefan Eßer
14*12e0d316SStefan Eßerdefine a2(a[], len) {
15*12e0d316SStefan Eßer
16*12e0d316SStefan Eßer	auto i
17*12e0d316SStefan Eßer
18*12e0d316SStefan Eßer	for (i = 0; i < len; ++i) {
19*12e0d316SStefan Eßer		a[i] = a[i] * a[i]
20*12e0d316SStefan Eßer	}
21*12e0d316SStefan Eßer
22*12e0d316SStefan Eßer	printarray(a[], len)
23*12e0d316SStefan Eßer}
24*12e0d316SStefan Eßerdefine a1(*a[], len) {
25*12e0d316SStefan Eßer
26*12e0d316SStefan Eßer	auto i
27*12e0d316SStefan Eßer
28*12e0d316SStefan Eßer	for (i = 0; i < len; ++i) {
29*12e0d316SStefan Eßer		a[i] = i
30*12e0d316SStefan Eßer	}
31*12e0d316SStefan Eßer
32*12e0d316SStefan Eßer	a2(a[], len)
33*12e0d316SStefan Eßer
34*12e0d316SStefan Eßer	printarray(a[], len)
35*12e0d316SStefan Eßer}
36*12e0d316SStefan Eßerlen = 16
37*12e0d316SStefan Eßera1(b[] ++ase^= , len)
38