fpcsrc/tests/webtbs/tw11619.pp


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

{ %norun }

{$inline on}
program TEST;
{$EXTENDEDSYNTAX OFF}
VAR
   IO: WORD; { or LONGINT if wanted }

function test: word; inline;
begin
  test:=1;
  writeln(io);
end;

BEGIN
   IO:=test;
END.