Test suite results for test file webtbs/tw3176.pp

Test run data :

Test file "webtbs/tw3176.pp" information:

t_id 1330
t_adddate 2004/08/09
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1027388.

Source:

{ Source provided for Free Pascal Bug Report 3176 }
{ Submitted by "Marcel Martin" on  2004-06-21 }
{ e-mail: mm10@ellipsa.net }
program test;
{$MODE OBJFPC}
{$GOTO ON}

label DONE1;
var i : Longint;
begin
  i := 0;
  try
    if i < 0 then goto DONE1;
    i := 1;

    //...

DONE1:
  finally
    i := 2;
  end;
  if i<>2 then
    halt(1);
end.

//DONE1:
//    begin end; <- inserting this line fixes the problem
//  finally

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