{$modeswitch out+}
procedure p(out o);
  begin
  end;

begin
end.