freepascal.compiler/tests/test/testlib.pp

library bug;

const
   publicname='TestName';
   publicindex = 1234;

procedure Test;export;

 begin
 end;

exports
  Test name publicname;
exports
  Test index publicindex;

begin
end.