Test suite results for test file tbs/tb0262.pp

Test run data :

Test file "tbs/tb0262.pp" information:

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

Detailed test run results:

Record count: 1

No log of 939754.

Source:

{ Old file: tbs0305.pp }
{ Finally is not handled correctly after inputting 0 }

{$mode objfpc}
uses
  sysutils;

var i,j,k:real;
const except_called : boolean = false;
begin
  i:=100;
  j:=0;
  try
    k:=i/j;
    writeln(k:5:3);
  except
    k:=0;
    writeln('Illegal Input');
    except_called:=true;
  end;
  if not except_called then
    begin
      Writeln('Error in except handling');
      Halt(1);
    end;
end.

Link to SVN view of tbs/tb0262.pp source.