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

Unhandled trap: 0x21
pc: 0000000000010158  npc: 000000000001015c
%g0-3: 0000000000000000 00000000000fe4cc 0000000000000000 0000000000000000
%g4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000
%o0-3: 00000000000c9800 0000000000000000 0000000000000000 0000000000000000 
%o4-7: 0000000000000000 0000000000000000 0000000040800ef8 00000000000405ac 
%l0-3: 00000000000e2000 0000000000000004 0000000000000000 0000000000000000 
%l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 
%i0-3: 0000000000000000 0000000040800fe0 0000000040800fec 0000000000000000 
%i4-7: 0000000000000000 0000000000000000 0000000040800f60 00000000000101ac 
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.