+ 265

bugs/bug0265.pp

@@ -0,0 +1,21 @@
+PROGRAM t9;
+ 
+PROCEDURE Eeep;
+VAR
+   X: BYTE;
+   NewNG: STRING;
+PROCEDURE SubProc;
+   BEGIN
+      newng := 'alt';
+      FOR X := 1 TO LENGTH(NewNG) DO BEGIN
+         WRITELN(X);
+   END;
+END;
+BEGIN
+   SubProc;
+END;
+ 
+BEGIN
+        Eeep;
+END.
+

bugs/readme.txt

@@ -354,3 +354,5 @@ bug0261.pp   problems for assignment overloading
 bug0262.pp   problems with virtual and overloaded methods
 bug0263.pp   export directive is not necessary in delphi anymore
 bug0264.pp   methodpointer bugs
+bug0265.pp   nested proc with for-counter in other lex level
+