diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:35:31 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:35:31 +0300 |
| commit | 8ceb5f934787eb7be5fb452fb39179df66119954 (patch) | |
| tree | 56a80fc5c118f7c2ebad7ab44bd8be048b2f7ec2 /test/arrayparm.awk | |
| parent | 2f83a4e72166e811a9f0b4726c19a3d5a0b17dcb (diff) | |
| download | egawk-8ceb5f934787eb7be5fb452fb39179df66119954.tar.gz egawk-8ceb5f934787eb7be5fb452fb39179df66119954.tar.bz2 egawk-8ceb5f934787eb7be5fb452fb39179df66119954.zip | |
Move to gawk-2.15.6.
Diffstat (limited to 'test/arrayparm.awk')
| -rw-r--r-- | test/arrayparm.awk | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test/arrayparm.awk b/test/arrayparm.awk new file mode 100644 index 00000000..d6f34d96 --- /dev/null +++ b/test/arrayparm.awk @@ -0,0 +1,21 @@ +# +# Test program from: +# +# Date: Tue, 21 Feb 95 16:09:29 EST +# From: emory!blackhawk.com!aaron (Aaron Sosnick) +# +BEGIN { + foo[1]=1; + foo[2]=2; + bug1(foo); +} +function bug1(i) { + for (i in foo) { + bug2(i); + delete foo[i]; + print i,1,bot[1]; + } +} +function bug2(arg) { + bot[arg]=arg; +} |