#To: bug-gnu-utils@gnu.org
#From: Kristján Jónasson <kristjan@decode.is>
#Subject: Gawk bug
#Cc: arnold@gnu.org
#
#Hi!
#
#The following seems to be a bug in gawk. I have tried as I could to
#minimize the bug-causing program, so of course it does not seem to do
#anything useful in its present form. The error message received is:
#
#gawk: test.awk:15: fatal error: internal error
#Aborted
#
#Note that there is an attached file that the program reads, called "a". I
#played with the program a fair bit and my feeling is that the error is
#related with the delete statement, and not the reading of the file and the
#close statement. At one point I was able to remove the file reading and
#still obtain the error. If, for example, I remove the close statement and
#make two copies of the file instead, (reading one copy in sub1 and the
#other in sub2), the error still occurs.
#
#The operating system is Red Hat Linux, version 6.0, the gawk is version
#3.0.4, and the gawk was obtained from an rpm file gawk-3.0.4-1.i386.rpm.
#
#The program is:
#

# Wed Mar  8 13:41:34 IST 2000
# ADR: modified to use INPUT, so can set it from command line.
#      When run, no output is produced, but it shouldn't core
#      dump, either.
#
# The program bug is to not close the file in sub2.

function sub1(x) {
# while (getline < "a" == 1) i++
  while (getline < INPUT == 1) i++
# close("a")
  close(INPUT)
}

function sub2(x) {
  i=0
  delete y
# while (getline < "a" == 1) z[++i] = $1
  while (getline < INPUT == 1) z[++i] = $1
  for(i in z) y[i] = x[i] + z[i]
}

function sub3(x, y, z) {
  sub2(x)
  for(i=1; i<=4; i++) z[i] = y[i]
}

BEGIN {
  sub1(x)
  sub2(x)
  sub3(x, y, z)
}
#
#And the data file is:
#
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
# 32.440    3.830    3.383700000000000    10.08    298  865
#
#