xref: /illumos-gate/usr/src/test/util-tests/tests/awk/syn/arrayparm.awk (revision e6d6c189fa3a95d7aa27bbe0aeacf7c1a6b57c8c) 
1*e6d6c189SCody Peter Mello#
2*e6d6c189SCody Peter Mello# Test program from:
3*e6d6c189SCody Peter Mello#
4*e6d6c189SCody Peter Mello# Date: Tue, 21 Feb 95 16:09:29 EST
5*e6d6c189SCody Peter Mello# From: emory!blackhawk.com!aaron (Aaron Sosnick)
6*e6d6c189SCody Peter Mello#
7*e6d6c189SCody Peter MelloBEGIN {
8*e6d6c189SCody Peter Mello    foo[1]=1;
9*e6d6c189SCody Peter Mello    foo[2]=2;
10*e6d6c189SCody Peter Mello    bug1(foo);
11*e6d6c189SCody Peter Mello}
12*e6d6c189SCody Peter Mellofunction bug1(i) {
13*e6d6c189SCody Peter Mello    for (i in foo) {
14*e6d6c189SCody Peter Mello	bug2(i);
15*e6d6c189SCody Peter Mello	delete foo[i];
16*e6d6c189SCody Peter Mello	print i,1,bot[1];
17*e6d6c189SCody Peter Mello    }
18*e6d6c189SCody Peter Mello}
19*e6d6c189SCody Peter Mellofunction bug2(arg) {
20*e6d6c189SCody Peter Mello    bot[arg]=arg;
21*e6d6c189SCody Peter Mello}
22