fpc/tests/test/library/tlib1a2.pp
2011-06-22 07:16:06 +00:00

17 lines
175 B
ObjectPascal

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