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

Unhandled trap: 0x21
pc: 0000000000010158  npc: 000000000001015c
%g0-3: 0000000000000000 00000000000d4ae8 0000000000000000 0000000000000000
%g4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000
%o0-3: 00000000000a7c00 00000000000a7d48 0000000000000000 0000000000000000 
%o4-7: 0000000000000000 0000000000000000 0000000040800f58 000000000003c200 
%l0-3: 0000000000000004 0000000000000000 0000000000000000 0000000000000000 
%l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 
%i0-3: 0000000000000000 0000000040801040 000000004080104c 0000000000000000 
%i4-7: 0000000000000000 0000000000000000 0000000040800fc0 00000000000101bc 
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.