fpc/tests/webtbs/tw3964a.pp
2016-08-14 14:09:24 +00:00

19 lines
246 B
ObjectPascal

{ %norun }
{ %needlibrary }
{ %target=linux,haiku }
{$mode objfpc}
library tw3964a;
function testfunc : longint;external name 'testfunc';
function f : longint;public;
begin
result:=testfunc;
end;
exports
f;
begin
end.