gawk 3.1.0 bug

[John H. DuBois III]

Under SCO OpenServer 5.0.6a using gawk 3.1.0 compiled with gcc 2.95.2, this
program:

    BEGIN {
        f1(Procs,b)
        print "test"
    }

    function f1(Procs,a) {
        a[""]
        f2()
    }

    function f2() {
        b[""]
    }

gives:

    gawk: ./gtest:5: fatal error: internal error

and dumps core.

gdb gives me this stack backtrace:

#0  0x80019943 in kill () from /usr/lib/libc.so.1
#1  0x8003e754 in abort () from /usr/lib/libc.so.1
#2  0x8062a87 in catchsig (sig=0, code=0) at main.c:947
#3  0x80053a0c in _sigreturn () from /usr/lib/libc.so.1
#4  0x80023d36 in cleanfree () from /usr/lib/libc.so.1
#5  0x80023156 in _real_malloc () from /usr/lib/libc.so.1
#6  0x80023019 in malloc () from /usr/lib/libc.so.1
#7  0x8053b95 in do_print (tree=0x0) at builtin.c:1336
#8  0x806b47c in interpret (tree=0x8084ee4) at eval.c:606
#9  0x806ad8d in interpret (tree=0x8084f0c) at eval.c:384
#10 0x806ad21 in interpret (tree=0x8084f5c) at eval.c:367
#11 0x8061d5b in main (argc=4, argv=0x80478ac) at main.c:506

        John
--
John DuBois  address@hidden  KC6QKZ/AE  http://www.armory.com./~spcecdt/