fpcsrc/tests/webtbs/uw17493.pp


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

{$inline on}

unit uw17493;

interface

procedure test; inline;

implementation

procedure test; inline;
var
  a: boolean;
begin
  a:=paramcount>100;
  while a do
    halt(1);
end;

end.