fpcsrc/tests/test/library/tlib3b.pp


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

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

library tlib3b;

  function p(a1, a2, a3, a4, a5, a6, a7 : dword) : dword;
    begin
      p:=a1+a2+a3+a4+a5+a6+a7;
    end;

  exports p;

begin
end.