fpc/tests/test/testlib.pp
2000-02-23 23:14:40 +00:00

19 lines
186 B
ObjectPascal

library bug;
const
publicname='TestName';
publicindex = 1234;
procedure Test;export;
begin
end;
exports
Test name publicname;
exports
Test index publicindex;
begin
end.