{ %fail }
unit tb0186;

interface
  procedure p;

implementation

procedure p;local;
  begin
  end;

begin
end.