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