diff options
Diffstat (limited to 'contrib/awk/test/arynocls.awk')
| -rw-r--r-- | contrib/awk/test/arynocls.awk | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/contrib/awk/test/arynocls.awk b/contrib/awk/test/arynocls.awk deleted file mode 100644 index 724c9ac..0000000 --- a/contrib/awk/test/arynocls.awk +++ /dev/null @@ -1,95 +0,0 @@ -#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 -# -# |
