mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-19 09:51:32 +02:00
26 lines
350 B
ObjectPascal
26 lines
350 B
ObjectPascal
{ %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.
|
|
|