home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gawk-2.15.6-base.tgz / gawk-2.15.6-base.tar / fsf / gawk / test / arrayparm.awk < prev    next >
Text File  |  1995-02-23  |  301b  |  22 lines
  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. # 
  7. BEGIN {
  8.     foo[1]=1;
  9.     foo[2]=2;
  10.     bug1(foo);
  11. }
  12. function bug1(i) {
  13.     for (i in foo) {
  14.     bug2(i);
  15.     delete foo[i];
  16.     print i,1,bot[1];
  17.     }
  18. }
  19. function bug2(arg) {
  20.     bot[arg]=arg;
  21. }
  22.