freepascal.compiler/tests/webtbs/tbug918.pp

program test;

procedure Test1;
var
  a: Integer;

    procedure Test2;
    begin
      a:= 0;
    end;
begin
end;

begin
end.