xref: /aosp_15_r20/external/one-true-awk/bugs-fixed/subsep-overflow.awk (revision 9a7741de182b2776d7b30d6355f2585c0780a51b)

function foo(c, n) {
    s = "";
    for (i = 0; i < n; i++) {
        s = s c;
    }
    return s;
}

BEGIN {
    str1 = foo("a", 4500);
    str2 = foo("b", 9000);

    a[(SUBSEP = str1), (SUBSEP = str2), "c"] = 1;

    for (k in a) {
        print length(k);
    }

    print (((SUBSEP = str1), (SUBSEP = str2), "c") in a);
    print (((SUBSEP = str1) SUBSEP (SUBSEP = str2) SUBSEP "c") in a);
    delete a[(SUBSEP = str1), (SUBSEP = str2), "c"];
    print (((SUBSEP = str1), (SUBSEP = str2), "c") in a);
    print (((SUBSEP = str1) SUBSEP (SUBSEP = str2) SUBSEP "c") in a);
}