fpcsrc/tests/webtbf/tw17646a.pp


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

{ %fail }

program forrangecheck;

var
  i1: Word;
  i2: LongWord;
  i3: QWord;
  cnt: longint;
begin
  cnt:=0;
  for i1 :=  High(longword)-2 to High(longword) do
    inc(cnt);
end.