fpc/tests/test/library/tlib3a.pp
2013-01-22 14:28:00 +00:00

17 lines
174 B
ObjectPascal

{ %target=win32,win64 }
{ %needlibrary }
{ %norun }
{ %neededafter }
library tlib3a;
procedure p(var a : dword);
begin
a:=1;
end;
exports p;
begin
end.