paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 19:46:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid range check error during compilation due to constant propagation

Browse Source 
git-svn-id: trunk@26196 -
This commit is contained in:
florian 2013-12-08 09:05:34 +00:00
parent 5aae381d10
commit dde4ec96c2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw16770.pp
View File

@ -2,14 +2,14 @@
{$mode delphi} {$mode delphi}
{$r+} {$r+}
procedure Test;
var var
Count: Word; Count: Word;
procedure Test;
var
I: Integer; I: Integer;
begin begin
Count := 0;
for I := 0 to Pred(Count) do for I := 0 to Pred(Count) do
begin begin
WriteLn(I); WriteLn(I);
@ -18,6 +18,8 @@ begin
end; end;
begin begin
Count := 0;
test; test;
end. end.