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

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.