Test suite results for test file webtbs/tw1470.pp

Test run data :

View Test suite results

Test file "webtbs/tw1470.pp" information:

t_id 820
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{$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.

Link to SVN view of webtbs/tw1470.pp source.