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

17 lines
174 B
ObjectPascal

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