Return to expr33.out CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests / stand

Annotation of researchv10dc/cmd/icon/tests/stand/expr33.out, revision 1.1

1.1     ! root        1: r := array(1,2,3,4,5,6,7,8,9) ----> record array(7)
        !             2: r.a ----> 1
        !             3: r.b ----> 2
        !             4: r.c ----> 3
        !             5: r.d ----> 4
        !             6: r.e ----> 5
        !             7: r.f ----> 6
        !             8: type(r) ----> "array"
        !             9: image(r) ----> "record array(7)"
        !            10: r.a +:= 0.0 ----> 1.0
        !            11: r.b +:= 0.0 ----> 2.0
        !            12: r.c +:= 0.0 ----> 3.0
        !            13: r.d +:= 0.0 ----> 4.0
        !            14: r.e +:= 0.0 ----> 5.0
        !            15: r.f +:= 0.0 ----> 6.0
        !            16: r.a ----> 1.0
        !            17: r.b ----> 2.0
        !            18: r.c ----> 3.0
        !            19: r.d ----> 4.0
        !            20: r.e ----> 5.0
        !            21: r.f ----> 6.0
        !            22: r := array("a",2,3.5,array(),r,main) ----> record array(7)
        !            23: "a"
        !            24: 2
        !            25: 3.5
        !            26: record array(7)
        !            27: record array(7)
        !            28: procedure main
        !            29: &null
        !            30: every write(image(!r)) ----> none
        !            31: r[1] :=: r.d ----> record array(7)
        !            32: record array(7)
        !            33: 2
        !            34: 3.5
        !            35: "a"
        !            36: record array(7)
        !            37: procedure main
        !            38: &null
        !            39: every write(image(!r)) ----> none
        !            40: Run-time error 101 at line 34 in expr33.icn
        !            41: integer expected
        !            42: offending value: record array(record array(7),2,3.5,"a",record array(7),procedure main,)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.