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 941193:

Unhandled trap: 0x21
pc: 00000000001001fc  npc: 0000000000100200
%g0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000
%g4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000
%o0-3: 00000000001a5c00 0000000000000000 0000000000000000 00000000001a5f48 
%o4-7: 0000000000000000 0000000000000000 0000004000800461 0000000000131fe8 
%l0-3: 0000000000000004 0000000000000000 0000000000000000 0000000000000000 
%l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 
%i0-3: 0000000000000000 0000004000800e20 0000004000800e38 0000000000000000 
%i4-7: 0000000000000000 0000000000000000 0000004000800521 000000000010026c 
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.