# Sun Apr 25 13:28:58 IDT 1999

# from Juegen Khars.  This program should not core dump.

  function ReadPGM(f, d) {

print "ReadPGM"

    d[1] = 1

  }

  function WritePGM(f, d) {

print "WritePGM"

    d[1] = 0

  }

  BEGIN {

print "before ReadPGM"

    ReadPGM("", d)

print "after ReadPGM"

print "before WritePGM"

    WritePGM("", d)

print "after WritePGM"

  }