xref: /netbsd-src/external/historical/nawk/dist/bugs-fixed/fs-overflow.awk (revision 6f2cbaf6070522c7a121cd0dcb79cf06aa3606b1)

function foo() {
    a = "";
    for (i = 0; i < 10000; i++) {
        a = a "c";
    }
    return a;
}

BEGIN {
    FS = foo();
    $0="foo";
    print $1;
}