Test suite results for test file webtbs/tw1152.pp

Test run data :

Test file "webtbs/tw1152.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934958.

Source:

{ Source provided for Free Pascal Bug Report 1152 }
{ Submitted by "Dirk Verwiebe" on  2000-09-30 }
{ e-mail: dirk@verwiebe.de }

{$mode objfpc}

program exception;
uses sysutils,crt;
var
  saveexit : pointer;
  finally_called : boolean;

procedure my_exit;
  begin
    exitproc:=saveexit;
    if not finally_called then
      begin
        Writeln('Problem with exception handling if crt unit is used');
        RunError(1);
      end
    else
      begin
        Writeln('Exception handling works');
        exitcode:=0;
      end;
  end;


var
  p : pointer;
BEGIN
  saveexit:=exitproc;
  exitproc:=@my_exit;
  finally_called:=false;
try
  p:=$ffffffff;
  longint(p^):=0;
finally
  finally_called:=true;
  writeln('Error !!!');
end;
END.

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