paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check whether loop counters are valid for assignment (bug 4695)

Browse Source 
git-svn-id: trunk@2285 -
This commit is contained in:
Jonas Maebe 2006-01-14 14:09:39 +00:00
parent c4afc10ebc
commit 09a668dac9
3 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5948,6 +5948,7 @@ tests/webtbf/tw4619a.pp -text svneol=unset#text/plain
tests/webtbf/tw4619b.pp svneol=native#text/plain
tests/webtbf/tw4647.pp svneol=native#text/plain
tests/webtbf/tw4651.pp svneol=native#text/plain
tests/webtbf/tw4695.pp svneol=native#text/plain
tests/webtbf/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain
tests/webtbf/uw0840b.pp svneol=native#text/plain

1
compiler/pstatmnt.pas
View File

@ -303,6 +303,7 @@ implementation
consume(_FOR);
hloopvar:=factor(false);
valid_for_assignment(hloopvar,true);
{ Check loop variable }
loopvarsym:=nil;

13
tests/webtbf/tw4695.pp Normal file
View File

@ -0,0 +1,13 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 4695 }
{ Submitted by "Ales Katona" on 2006-01-13 }
{ e-mail: almindor@gmail.com }
program test;
var
i: Integer;
begin
for i:=0 to 5 do
for i:=5 downto 0 do
Writeln('LOOPY');
end.