fpcsrc/tests/webtbs/tw7838a.pp


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

{ %norun }
{ %target=win32,win64,wince,linux}

library tw7838a;

{$mode objfpc} {$h+}

uses uw7838a;

function dllf: longint;
begin
  result:=exetest;
  if (result<>aa) then
    halt(1);
end;

exports dllf;

begin

end.