freepascal.compiler/tests/tbf/tb0184.pp

{ %fail }
library tb0184;

procedure p;local;
  begin
  end;

exports
  p;

begin
end.