fpcsrc/tests/webtbs/tw0918.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

program test;

procedure Test1;
var
  a: Integer;

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

begin
end.