freepascal.compiler/tests/tbf/tb0051.pp

{ %FAIL }
{ Old file: tbf0265.pp }
{ nested proc with for-counter in other lex level      OK 0.99.13 (PFV) }

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.