fpcsrc/tests/test/library/tlib3a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %needlibrary }
{ %norun }
{ %neededafter }

library tlib3a;

  procedure p(var a : dword);
    begin
      a:=1;
    end;

  exports p;

begin
end.