fpcsrc/tests/webtbs/tw3964b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %needlibrary }
{ %target=linux }
{$mode objfpc}

{$linklib tw3964a}

function testfunc : longint;
begin
  result:=1234;
end;

function f : longint;external name 'f';

exports
  testfunc name 'testfunc';

begin
  writeln(f);
end.