1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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", "str")
check(-3, "int", "str")
check("3.0", "str", "str")
split(" 3", f, "|") # create a maybe_num value
check(f[1], "str", "str")
check("0", "cint", "str")
check("-1", "int", "str")
}
|