4.3BSD/usr/contrib/icon/test/distr/std82.out

r := array(1,2,3,4,5,6,7,8,9) ----> record array(7)
r.a ----> 1
r.b ----> 2
r.c ----> 3
r.d ----> 4
r.e ----> 5
r.f ----> 6
type(r) ----> "array"
image(r) ----> "record array(7)"
r.a +:= 0.0 ----> 1.0
r.b +:= 0.0 ----> 2.0
r.c +:= 0.0 ----> 3.0
r.d +:= 0.0 ----> 4.0
r.e +:= 0.0 ----> 5.0
r.f +:= 0.0 ----> 6.0
r.a ----> 1.0
r.b ----> 2.0
r.c ----> 3.0
r.d ----> 4.0
r.e ----> 5.0
r.f ----> 6.0
r := array("a",2,3.5,create x,array(),r,main) ----> record array(7)
"a"
2
3.5
co-expression(0)
record array(7)
record array(7)
procedure main
every write(image(!r)) ----> none
r[1] :=: r.d ----> co-expression(0)
co-expression(0)
2
3.5
"a"
record array(7)
record array(7)
procedure main
every write(image(!r)) ----> none
Run-time error 101 at line 34 in std82.icn
integer expected
offending value: record array(co-expression,2,3.5,"a",record array(7),record array(7),procedure main)