1 files changed, 9 insertions, 7 deletions
diff --git a/test/arrdbg.awk b/test/arrdbg.awk
index 951acb41..1943a46f 100644
--- a/test/arrdbg.awk
+++ b/test/arrdbg.awk
@@ -1,17 +1,19 @@
-function check(x, exptype,   f) {
+function check(x, exptype, mpfr_exptype,   f) {
 	f[x]
 	printf "array_f subscript [%s]\n", x
 	printf "array_f subscript [%s]\n", x > okfile
+	printf "array_f subscript [%s]\n", x > mpfr_okfile
 	adump(f, -1)
 	printf "    array_func: %s_array_func\n", exptype > okfile
+	printf "    array_func: %s_array_func\n", mpfr_exptype > mpfr_okfile
 }
 
 BEGIN {
-	check(3.0, "cint")
-	check(-3, "int")
-	check("3.0", "str")
+	check(3.0, "cint", "str")
+	check(-3, "int", "str")
+	check("3.0", "str", "str")
 	split(" 3", f, "|")	# create a maybe_num value
-	check(f[1], "str")
-	check("0", "cint")
-	check("-1", "int")
+	check(f[1], "str", "str")
+	check("0", "cint", "str")
+	check("-1", "int", "str")
 }