fpcsrc/tests/webtbs/tw1470.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

{$mode objfpc}

function bbb (a1, a2: DWord): Boolean;
begin
        bbb := False;
end;

procedure a;
var
        i, j, k: DWord;

begin
        try
                i := 0;
                j := 1;

                while (True) do
                        begin
                                k := 2;

                                try
                                        if (not bbb (i, j)) then
                                                break; {this break generates an invalid label}

                                        if (k = 2) then
                                                k := 3;

                                finally
                                        k := 2;
                                end;
                        end;

                for i := 1 to 20 do
                        j := j + 1;

                WriteLn (j);

        finally
                i := 0;
                j := 1;
        end;
end;

begin
        a;
end.