path: root/fpcsrc/tests/tbs/tb0550a.pp

{ %opt=-Mout+ }
procedure p(out o);
  begin
  end;

begin
end.