begin

routine printarrayname1(integerarray(1)name A)
end

integerarray RA1(0:1)

printarrayname1(RA1)

integerarray(1)name RAN1

RAN1 == RA1

printarrayname1(RAN1)

endofprogram