%begin
  !! %name parameters are not being passed by address...
  %routine rsym(%integername sy)
  %end
  %routine psym(%integer sy)
  %end

  %byteinteger sym
  %integer i

! rsym(sym)  {%name param given a byte - illegal}
  rsym(i)    {%name param given an int}
  psym(sym)  {byte param - widened}
  psym(i)    {int param}
%endofprogram