begin
  routine test(integer p, integername q)
    p = 1
    q = 1
  end
  integername j, k
  integer x, y
  j == x
  k == y
  
  test(x, y)
  test(j, k)
  
endofprogram