freepascal.compiler/tests/tbf/tb0187.pp

{ %fail }
unit tb0187;

interface

  procedure p;local;

implementation

procedure p;local;
  begin
  end;

begin
end.