begin

integer x
integername xp
integerarray ra(0:9)

routine test1(integer xi1)
  x = xi1
  xi1 = x
end

routine test2(integername xin1)
  xin1 == x
  xin1 == xp
  xin1 = x
  xin1 = xp
end

routine test4(integer xi2,xi3)
  xi2 = xi3
  xi3 = xi2
end

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

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

endofprogram