Return to std82.out CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / test / distr

Annotation of 43BSD/contrib/icon/test/distr/std82.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,create x,array(),r,main) ----> record array(7)
                     23: "a"
                     24: 2
                     25: 3.5
                     26: co-expression(0)
                     27: record array(7)
                     28: record array(7)
                     29: procedure main
                     30: every write(image(!r)) ----> none
                     31: r[1] :=: r.d ----> co-expression(0)
                     32: co-expression(0)
                     33: 2
                     34: 3.5
                     35: "a"
                     36: record array(7)
                     37: record array(7)
                     38: procedure main
                     39: every write(image(!r)) ----> none
                     40: Run-time error 101 at line 34 in std82.icn
                     41: integer expected
                     42: offending value: record array(co-expression,2,3.5,"a",record array(7),record array(7),procedure main)

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