|
PROC main()
|
|
DEF i, a[10]:ARRAY OF LONG, p:PTR TO LONG
|
|
FOR i:=0 TO 9
|
|
a[i]:=NEW [1, i, i*i]
|
|
/* a[i] is now dynamically allocated */
|
|
ENDFOR
|
|
FOR i:=0 TO 9
|
|
p:=a[i]
|
|
WriteF('a[\d] is an array at address \d\n', i, p)
|
|
WriteF(' and the second element is \d\n', p[1])
|
|
ENDFOR
|
|
ENDPROC
|