begin
  routine test(integer a, real b)
  end
  test(1,2.0)
endofprogram