fpcsrc/tests/webtbs/tw16949a.pp


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

{ %norun }
{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}

library tw16949a;

{$mode objfpc}{$H+}

function foo: LongInt; cdecl;
var
 x: LongInt = 12345;
begin
 Result := x;
end;

exports
 foo;

begin
end.