Test suite results for test file test/texception2.pp

Test run data :

Test file "test/texception2.pp" information:

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

Detailed test run results:

Record count: 1

Log of 939747:

Unhandled trap: 0x21
pc: 00000000001001fc  npc: 0000000000100200
%g0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000
%g4-7: 0000000000000001 0000000000000000 0000000000000000 0000000000000000
%o0-3: 00000000001c8c00 0000004000800cb0 0000000000000000 0000000000000000 
%o4-7: 0000000000000000 0000000000000000 00000040008003f1 0000000000134e90 
%l0-3: 00000000002d1398 0000000000000004 0000000000000000 0000000000000000 
%l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 
%i0-3: 0000000000000000 0000004000800db0 0000004000800dc8 0000000000000000 
%i4-7: 0000000000000000 0000000000000000 00000040008004b1 0000000000100254 
pstate: 00000092 ccr: 44 (icc: -Z-- xcc: -Z--) asi: 82 tl: 0 pil: 0 gl: 0
tbr: 0000000000000000 hpstate: 0000000000000000 htba: 0000000000000000
cansave: 5 canrestore: 1 otherwin: 0 wstate: 0 cleanwin: 7 cwp: 1
fsr: 0000000009004002 y: 0000000000000000 fprs: 0000000000000001

Source:

{$mode objfpc}
uses
   sysutils;

procedure d;

  var
     d1 : double;

  begin
     d1:=0;
     d1:=1/d1;
  end;

var
   i : longint;

begin
   for i:=1 to 20 do
     try
        d;
     except
       on exception do
         ;
     end;
end.

Link to SVN view of test/texception2.pp source.