TP3/shell/tests/fixtures/t116_nestedstr.pas

program ns;
procedure Outer;
var S : string[70];
  procedure Inner;
  begin
    S := 'Hello';
    writeln(S);
    S := S + '!';
    writeln(S)
  end;
begin
  S := '';
  Inner
end;
begin Outer end.