fpcsrc/tests/webtbs/uw11182.pp


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

unit uw11182;

{$inline on}

interface

procedure test(k: longint); inline;

implementation

function f(a: longint): longint; inline;
begin
  f:=a+a;
end;

procedure test(k: longint);
var
  i: longint;
begin
  for i := f(k) to f(k+5) do
    writeln(i);
end;


end.