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

     1  # Sun Apr 25 13:28:58 IDT 1999
     2  # from Juegen Khars.  This program should not core dump.
     3    function ReadPGM(f, d) {
     4  print "ReadPGM"
     5      d[1] = 1
     6    }
     7  
     8    function WritePGM(f, d) {
     9  print "WritePGM"
    10      d[1] = 0
    11    }
    12  
    13    BEGIN {
    14  print "before ReadPGM"
    15      ReadPGM("", d)
    16  print "after ReadPGM"
    17  print "before WritePGM"
    18      WritePGM("", d)
    19  print "after WritePGM"
    20    }