github.com/benhoyt/goawk@v1.8.1/testdata/gawk/arrayparm.awk (about)

     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  }