Test suite results for test file test/tfpu2.pp

Test run data :

Test file "test/tfpu2.pp" information:

t_id 39
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

Log of 948165:

An unhandled exception occurred at $0000000200000000:
EAccessViolation: Access violation
  $0000000200000000

An unhandled exception occurred at $0000000100800551:
EAccessViolation: Access violation
  $0000000100800551

An unhandled exception occurred at $00000001002F68D8:
EAccessViolation: Access violation
  $00000001002F68D8

An unhandled exception occurred at $00000001001D1120:
EAccessViolation: Access violation
  $00000001001D1120

An unhandled exception occurred at $00000001001CEE08:
EAccessViolation: 
  $00000001001CEE08

An unhandled exception occurred at $00000001001CD830:
EAccessViolation: 
  $00000001001CD830

An unhandled exception occurred at $0000000167616374:
EAccessViolation: 
  $0000000167616374

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $00000001002D3D60:
EAccessViolation: 
  $00000001002D3D60

An unhandled exception occurred at $000000016F6C6C5F:
EAccessViolation: 
  $000000016F6C6C5F

An unhandled exception occurred at $00000001002F04A8:
EAccessViolation: 
  $00000001002F04A8

An unhandled exception occurred at $00000001002EFCD8:
EAccessViolation: 
  $00000001002EFCD8

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $00000001686F7274:
EAccessViolation: 
  $00000001686F7274

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $0000000100000008:
EAccessViolation: 
  $0000000100000008

An unhandled exception occurred at $000000016E000000:
EAccessViolation: 
  $000000016E000000

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $000000017574696C:
EAccessViolation: 
  $000000017574696C

An unhandled exception occurred at $0000000100000000:
EAccessViolation: 
  $0000000100000000

An unhandled exception occurred at $00000001ECEDEEEF:
EAccessViolation: 
  $00000001ECEDEEEF

An unhandled exception occurred at $00000001001CAE30:
EAccessViolation: 
  $00000001001CAE30

An unhandled exception occurred at $00000001001CA2C0:
EAccessViolation: 
  $00000001001CA2C0

An unhandled exception occurred at $00000001001C98CC:
EAccessViolation: 
  $00000001001C98CC

An unhandled exception occurred at $00000001001AEB50:
EAccessViolation: 
  $00000001001AEB50

An unhandled exception occurred at $0000000100128A90:
EAccessViolation: 
  $0000000100128A90

An unhandled exception occUnhandled trap: 0x34
pc: 00000000001b39f4  npc: 00000000001b39f8
%g0-3: 0000000000000000 0000000000000067 0000000000000001 00000400008004a1
%g4-7: 00000000001cdf48 0000000000000000 0000000000000000 0000000000000000
%o0-3: 00000000002e0c68 0000000000000001 0000000000000000 0000000000000008 
%o4-7: 00000000001006f8 0000000000000008 00000000002dff61 00000000001b39f4 
%l0-3: 00000000002f8480 0000000000000008 00000000f8f9fafb 00000000fcfdfeff 
%l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000040 
%i0-3: 00000000002e0c68 0000000000000001 00000000002f4ce0 0000000000000000 
%i4-7: 0000000000000008 00000000000000ff 00000000002e00a1 00000000001b58c8 
pstate: 00000092 ccr: 44 (icc: -Z-- xcc: -Z--) asi: 82 tl: 0 pil: 0 gl: 0
tbr: 0000000000000000 hpstate: 0000000000000000 htba: 0000000000000000
cansave: 0 canrestore: 6 otherwin: 0 wstate: 0 cleanwin: 7 cwp: 5
fsr: 0000000009004030 y: 0000000000000000 fprs: 0000000000000001

Source:

{ %version=1.1 }

{$ifdef fpc}{$mode objfpc}{$endif}
program test_fpu_excpetions;

uses
  SysUtils;

  function mysqrt(x : real) : real;

    begin
      try
        mysqrt:=sqrt(x);
      except
        on e : exception do
          mysqrt:=0;
      end;
    end;

  var
    x, y,z : real;

begin
  x:=6.5;
  y:=5.76;
  z:=3.1;
  Writeln('Testing mysqrt (x) = sqrt(x) if x >= 0');
  Writeln('                   = 0       if x <  0');
  Writeln(' 6.5+5.76*mysqrt(3.1) = ',x+y*mysqrt(z):0:6);
  Writeln(' 6.5+5.76*mysqrt(-3.1) = ',x+y*mysqrt(-z):0:6);
end.

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