freepascal.compiler/tests/tbf/tb0206.pp

{ %fail }
{$mode objfpc}
{$modeswitch out-}
procedure p(out o);
  begin
  end;

begin
end.