fpcsrc/tests/test/tnonlocalgoto3.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{ %fail }
{$mode objfpc}
{$goto on}
{$modeswitch nonlocalgoto }

procedure p1;
  label 1;
  procedure p2;
    begin
      goto 1;
    end;

  begin
    try
      p1;
    finally
    end;
    1:
  end;

begin
end.