paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 18:18:26 +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}
{$r+}
procedure Test;
var
Count: Word;
procedure Test;
var
I: Integer;
begin
Count := 0;
for I := 0 to Pred(Count) do
begin
WriteLn(I);
@ -18,6 +18,8 @@ begin
end;
begin
Count := 0;
test;
end.