|
Packit |
575503 |
function check(x, exptype, f) {
|
|
Packit |
575503 |
f[x]
|
|
Packit |
575503 |
printf "array_f subscript [%s]\n", x
|
|
Packit |
575503 |
printf "array_f subscript [%s]\n", x > okfile
|
|
Packit |
575503 |
adump(f, -1)
|
|
Packit |
575503 |
printf " array_func: %s_array_func\n", exptype > okfile
|
|
Packit |
575503 |
}
|
|
Packit |
575503 |
|
|
Packit |
575503 |
BEGIN {
|
|
Packit |
575503 |
check(3.0, "cint")
|
|
Packit |
575503 |
check(-3, "int")
|
|
Packit |
575503 |
check("3.0", "str")
|
|
Packit |
575503 |
split(" 3", f, "|") # create a maybe_num value
|
|
Packit |
575503 |
check(f[1], "str")
|
|
Packit |
575503 |
check("0", "cint")
|
|
Packit |
575503 |
check("-1", "int")
|
|
Packit |
575503 |
}
|