Merge branch 'gawk-5.1-stable'

6 files changed, 61 insertions, 8 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index c130c7a3..dc4f6da9 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2021-10-18         Arnold D. Robbins     <arnold@skeeve.com>
+
+	* Makefile.am (EXTRA_DIST): profile16, new test.
+	* profile16.awk, profile16.ok: New files.
+
 2021-10-13         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* Gentest: Add check for ZOS_FAIL targets that have to
diff --git a/test/Makefile.am b/test/Makefile.am
index e95d097d..7a2289bd 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -1011,6 +1011,8 @@ EXTRA_DIST = \
 	profile14.ok \
 	profile15.awk \
 	profile15.ok \
+	profile16.awk \
+	profile16.ok \
 	prt1eval.awk \
 	prt1eval.ok \
 	prtoeval.awk \
@@ -1455,9 +1457,9 @@ GAWK_EXT_TESTS = \
 	nsindirect2 nsprof1 nsprof2 octdec patsplit posix printfbad1 \
 	printfbad2 printfbad3 printfbad4 printhuge procinfs profile0 \
 	profile1 profile10 profile11 profile12 profile13 profile14 \
-	profile15 profile2 profile3 profile4 profile5 profile6 profile7 \
-	profile8 profile9 pty1 pty2 rebuf regexsub reginttrad regnul1 \
-	regnul2 regx8bit reint reint2 rsgetline rsglstdin rsstart1 \
+	profile15 profile16 profile2 profile3 profile4 profile5 profile6 \
+	profile7 profile8 profile9 pty1 pty2 rebuf regexsub reginttrad \
+	regnul1 regnul2 regx8bit reint reint2 rsgetline rsglstdin rsstart1 \
 	rsstart2 rsstart3 rstest6 sandbox1 shadow shadowbuiltin sortfor \
 	sortfor2 sortu sourcesplit split_after_fpat splitarg4 strftfld \
 	strftime strtonum strtonum1 stupid1 stupid2 stupid3 stupid4 \
@@ -1518,7 +1520,7 @@ NEED_POSIX = escapebrace printf0 posix2008sub paramasfunc1 paramasfunc2 muldimpo
 # List of tests that need --pretty-print
 NEED_PRETTY = nsprof1 nsprof2 \
 	profile4 profile5 profile8 profile9 profile10 profile11 profile13 \
-	profile14 profile15
+	profile14 profile15 profile16
 
 # List of tests that need --re-interval
 NEED_RE_INTERVAL = gsubtst3 reint reint2
diff --git a/test/Makefile.in b/test/Makefile.in
index b950d09d..c37ab80a 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -1277,6 +1277,8 @@ EXTRA_DIST = \
 	profile14.ok \
 	profile15.awk \
 	profile15.ok \
+	profile16.awk \
+	profile16.ok \
 	prt1eval.awk \
 	prt1eval.ok \
 	prtoeval.awk \
@@ -1721,9 +1723,9 @@ GAWK_EXT_TESTS = \
 	nsindirect2 nsprof1 nsprof2 octdec patsplit posix printfbad1 \
 	printfbad2 printfbad3 printfbad4 printhuge procinfs profile0 \
 	profile1 profile10 profile11 profile12 profile13 profile14 \
-	profile15 profile2 profile3 profile4 profile5 profile6 profile7 \
-	profile8 profile9 pty1 pty2 rebuf regexsub reginttrad regnul1 \
-	regnul2 regx8bit reint reint2 rsgetline rsglstdin rsstart1 \
+	profile15 profile16 profile2 profile3 profile4 profile5 profile6 \
+	profile7 profile8 profile9 pty1 pty2 rebuf regexsub reginttrad \
+	regnul1 regnul2 regx8bit reint reint2 rsgetline rsglstdin rsstart1 \
 	rsstart2 rsstart3 rstest6 sandbox1 shadow shadowbuiltin sortfor \
 	sortfor2 sortu sourcesplit split_after_fpat splitarg4 strftfld \
 	strftime strtonum strtonum1 stupid1 stupid2 stupid3 stupid4 \
@@ -1783,7 +1785,7 @@ NEED_POSIX = escapebrace printf0 posix2008sub paramasfunc1 paramasfunc2 muldimpo
 # List of tests that need --pretty-print
 NEED_PRETTY = nsprof1 nsprof2 \
 	profile4 profile5 profile8 profile9 profile10 profile11 profile13 \
-	profile14 profile15
+	profile14 profile15 profile16
 
 
 # List of tests that need --re-interval
@@ -4817,6 +4819,11 @@ profile15:
 	@AWKPATH="$(srcdir)" $(AWK) -f $@.awk  --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
 	@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
 
+profile16:
+	@echo $@
+	@AWKPATH="$(srcdir)" $(AWK) -f $@.awk  --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
+	@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+
 profile4:
 	@echo $@
 	@AWKPATH="$(srcdir)" $(AWK) -f $@.awk  --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
diff --git a/test/Maketests b/test/Maketests
index ec749212..0c5d74f9 100644
--- a/test/Maketests
+++ b/test/Maketests
@@ -1881,6 +1881,11 @@ profile15:
 	@AWKPATH="$(srcdir)" $(AWK) -f $@.awk  --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
 	@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
 
+profile16:
+	@echo $@
+	@AWKPATH="$(srcdir)" $(AWK) -f $@.awk  --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
+	@-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+
 profile4:
 	@echo $@
 	@AWKPATH="$(srcdir)" $(AWK) -f $@.awk  --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@
diff --git a/test/profile16.awk b/test/profile16.awk
new file mode 100644
index 00000000..e0c9c42b
--- /dev/null
+++ b/test/profile16.awk
@@ -0,0 +1,16 @@
+BEGIN {
+	foo::foo_bar()
+	foofoo::xxx()
+}
+
+@namespace "foo"
+
+function foo_bar()
+{
+	print "foo::foo_bar"
+}
+
+function foofoo::xxx()
+{
+	print "foofoo::xxx"
+}
diff --git a/test/profile16.ok b/test/profile16.ok
new file mode 100644
index 00000000..b954b1c5
--- /dev/null
+++ b/test/profile16.ok
@@ -0,0 +1,18 @@
+BEGIN {
+	foo::foo_bar()
+	foofoo::xxx()
+}
+
+
+@namespace "foo"
+
+
+function foo_bar()
+{
+	print "foo::foo_bar"
+}
+
+function foofoo::xxx()
+{
+	print "foofoo::xxx"
+}