source: vendor/gawk/3.1.5/test/arrayparm.awk@ 3076

Last change on this file since 3076 was 3076, checked in by bird, 19 years ago

gawk 3.1.5
File size: 301 bytes
Line 
1#
2# Test program from:
3#
4# Date: Tue, 21 Feb 95 16:09:29 EST
5# From: emory!blackhawk.com!aaron (Aaron Sosnick)
6#
7BEGIN {
8 foo[1]=1;
9 foo[2]=2;
10 bug1(foo);
11}
12function bug1(i) {
13 for (i in foo) {
14 bug2(i);
15 delete foo[i];
16 print i,1,bot[1];
17 }
18}
19function bug2(arg) {
20 bot[arg]=arg;
21}
Note: See TracBrowser for help on using the repository browser.