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