96 lines
3.4 KiB
Awk
96 lines
3.4 KiB
Awk
|
#To: bug-gnu-utils@gnu.org
|
|||
|
|
#From: Kristj<74>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
|
|||
|
|
#
|
|||
|
|
#
|