mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-04 08:54:53 +01:00
16 lines
197 B
ObjectPascal
16 lines
197 B
ObjectPascal
{ %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.
|