mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:19:29 +01:00
14b95b3b9b
they are constants (instead of only on 32 bit systems), and always use the
actual upper/lower bound of the loop variable instead of hardcoding the
bounds of longint (mantis #17646)
git-svn-id: trunk@16213 -
15 lines
182 B
ObjectPascal
15 lines
182 B
ObjectPascal
{ %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.
|