Test suite results for test file webtbs/tw2229.pp

Test run data :

View Test suite results

Test file "webtbs/tw2229.pp" information:

t_id 921
t_adddate 2003/10/03
t_result 217
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ %result=217 }

{ Source provided for Free Pascal Bug Report 2229 }
{ Submitted by "Vincent Snijders" on  2002-11-14 }
{ e-mail: vslist@zonnet.nl }
program reraise;

{$mode objfpc}
{$H+}

uses
  SysUtils;

procedure raiseexception;
var
  x: integer;
begin
  try
    x := 1;
    raise Exception.Create('Bug?');
  except
    on E: Exception  do
    begin
      if  x=1 then
      //begin 
        raise
      //end  
      else writeln('Do nothing')
    end
  end;
end;

begin
  raiseexception;
end.

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