xref: /illumos-gate/usr/src/test/util-tests/tests/awk/gnu/delarprm.awk (revision 3ee4fc2aa6b5136515cc3eed32d3c6ef33e37471)

# From dragon!unagi.cis.upenn.edu!sjanet Tue Mar 25 17:12:20 1997
# Return-Path: <dragon!unagi.cis.upenn.edu!sjanet>
# Received: by skeeve.atl.ga.us (/\==/\ Smail3.1.22.1 #22.1)
# 	id <m0w9eS4-000GWyC@skeeve.atl.ga.us>; Tue, 25 Mar 97 17:12 EST
# Received: by vecnet.com (DECUS UUCP /2.0/2.0/2.0/);
#           Tue, 25 Mar 97 16:58:36 EDT
# Received: from gnu-life.ai.mit.edu by antaries.vec.net (MX V4.2 VAX) with SMTP;
#           Tue, 25 Mar 1997 16:58:26 EST
# Received: from linc.cis.upenn.edu by gnu-life.ai.mit.edu (8.8.5/8.6.12GNU) with
#           ESMTP id QAA24350 for <bug-gnu-utils@prep.ai.mit.edu>; Tue, 25 Mar
#           1997 16:56:59 -0500 (EST)
# Received: from unagi.cis.upenn.edu (UNAGI.CIS.UPENN.EDU [158.130.8.153]) by
#           linc.cis.upenn.edu (8.8.5/8.8.5) with ESMTP id QAA09424; Tue, 25 Mar
#           1997 16:56:54 -0500 (EST)
# Received: (from sjanet@localhost) by unagi.cis.upenn.edu (8.8.5/8.8.5) id
#           QAA03969; Tue, 25 Mar 1997 16:56:50 -0500 (EST)
# Date: Tue, 25 Mar 1997 16:56:50 -0500 (EST)
# From: Stan Janet <sjanet@unagi.cis.upenn.edu>
# Message-ID: <199703252156.QAA03969@unagi.cis.upenn.edu>
# To: bug-gnu-utils@prep.ai.mit.edu
# CC: arnold@gnu.ai.mit.edu
# Subject: GNU awk 3.0.2 bug: fatal error deleting local array inside function
# Status: ORf
#
# Version: GNU Awk 3.0.2
# Platforms: SunOS 4.1.1 (compiled with Sun cc)
#            IRIX 5.3 (compiled with SGI cc)
# Problem: Deleting local array inside function causes fatal internal error (and
# 	core dump. The error does not occur when the variable "x", unused in
# 	the example, is removed or when the function is declared foo(x,p).
# 	When the function is declared foo(p,x), adding a dummy line that uses
# 	"x", e.g. "x=1" does not prevent the error. If "p" is not deleted,
# 	there is no error. If "p[1]" is used to delete the lone element, there
# 	is no error.
#
# ==== The program x.gawk ====

function foo(p,x) {
	p[1]="bar"
	delete p
	return 0
}

BEGIN {
	foo()
}

# ==== The output for "gawk -f x.gawk" (SunOS) ====
#
# gawk: x.gawk:4: fatal error: internal error