1function check(x, exptype, mpfr_exptype,   f) {
2	f[x]
3	printf "array_f subscript [%s]\n", x
4	printf "array_f subscript [%s]\n", x > okfile
5	printf "array_f subscript [%s]\n", x > mpfr_okfile
6	adump(f, -1)
7	printf "    array_func: %s_array_func\n", exptype > okfile
8	printf "    array_func: %s_array_func\n", mpfr_exptype > mpfr_okfile
9}
10
11BEGIN {
12	check(3.0, "cint", "str")
13	check(-3, "int", "str")
14	check("3.0", "str", "str")
15	split(" 3", f, "|")	# create a maybe_num value
16	check(f[1], "str", "str")
17	check("0", "cint", "str")
18	check("-1", "int", "str")
19}
20