fpcsrc/tests/test/library/tlib1a2.pp


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

{ %target=win32,win64 }
{ %needlibrary }
{ %norun }
{ %neededafter }

library tlib1a2;

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

  exports p;

begin
end.