freepascal.compiler/bugs/bug0263.pp

library bug0263;

{
  The export directive is not necessary anymore in delphi, it's a leftover
  from the 16bit model, just like near and far.
}

procedure p;
begin
end;

exports
  p name 'p';

end.