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

* nested for loop with same counter

Browse Source 
git-svn-id: trunk@2764 -
This commit is contained in:
peter 2006-03-05 18:58:55 +00:00
parent 79795d65b5
commit 08aea3b7fb
2 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

@ -4867,6 +4867,7 @@ tests/tbf/tb0175.pp svneol=native#text/plain
tests/tbf/tb0176.pp svneol=native#text/plain
tests/tbf/tb0177.pp svneol=native#text/plain
tests/tbf/tb0178.pp svneol=native#text/plain
tests/tbf/tb0179.pp svneol=native#text/plain
tests/tbf/ub0115.pp svneol=native#text/plain
tests/tbf/ub0149.pp svneol=native#text/plain
tests/tbf/ub0158a.pp svneol=native#text/plain

14
tests/tbf/tb0179.pp Normal file
View File

@ -0,0 +1,14 @@
{ %fail }
var
i : integer;
begin
if i=2 then
begin
for i:=1 to 10 do
{ The next line should be forbidden }
for i:=1 to 9 do
writeln(i);
end;
end.