begin

integer x
integername xp
integernamearray inra(0:9)

routine test12(integernamearrayname xinan1)
  xinan1(4) == xp
  xp == xinan1(4)
  xinan1(4) == x
  xinan1(4) = x
  x = xinan1(4)
end

inra(4) == x
test12(inra)

endofprogram