fpcsrc/tests/webtbs/tw16770.pp


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

{ %result=201 }

{$mode delphi}
{$r+}
procedure Test;
var
  Count: Word;
  I: Integer;

begin
  Count := 0;

  for I := 0 to Pred(Count) do
    begin
      WriteLn(I);
      break;
    end;
end;

begin
  test;
end.