bugs-fixed/subsep-overflow.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

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);
}