begin

routine printarrayname3(integerarray(3)name A)
end

integerarray RA3(0:1, 0:1, 0:1)

printarrayname3(RA3)

integerarray(3)name RAN3

RAN3 == RA3

printarrayname3(RAN3)

endofprogram