Merge branch 'master' into feature/typed-regex

1 files changed, 17 insertions, 0 deletions

diff --git a/test/arrdbg.awk b/test/arrdbg.awk
new file mode 100644
index 00000000..951acb41
--- /dev/null
+++ b/test/arrdbg.awk
@@ -0,0 +1,17 @@
+function check(x, exptype,   f) {
+	f[x]
+	printf "array_f subscript [%s]\n", x
+	printf "array_f subscript [%s]\n", x > okfile
+	adump(f, -1)
+	printf "    array_func: %s_array_func\n", exptype > okfile
+}
+
+BEGIN {
+	check(3.0, "cint")
+	check(-3, "int")
+	check("3.0", "str")
+	split(" 3", f, "|")	# create a maybe_num value
+	check(f[1], "str")
+	check("0", "cint")
+	check("-1", "int")
+}