begin

integer x

routine test7(integerarrayname xran1)
  xran1(4) = x
  x = xran1(4)
end

integerarray ra(0:9)
test7(ra)

endofprogram