Move to 3.1.8.gawk-3.1.8

1 files changed, 25 insertions, 0 deletions

diff --git a/test/fcall_exit2.awk b/test/fcall_exit2.awk
new file mode 100644
index 00000000..cbf20820
--- /dev/null
+++ b/test/fcall_exit2.awk
@@ -0,0 +1,25 @@
+#!/bin/awk -f
+
+function crash () {
+    exit 1
+}
+
+function true (a,b,c) {
+    return 1
+}
+
+BEGIN {
+    if (ARGV[2] == 1) {
+        print "<BEGIN CONTEXT> true(1, crash()) => crash properly."
+        true(1, crash())
+	# ADR: Added:
+	delete ARGV[2]
+    }
+}
+
+{
+        print "<RULE CONTEXT> true(1, crash()) => do not crash properly."
+        true(1, crash())
+}
+
+# FdF