t_id
39
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
477562759 | 940437 | False | False | Failed to run |
Record count: 1
Unhandled trap: 0x21 pc: 00000000001001f8 npc: 00000000001001fc %g0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %g4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %o0-3: 0000000000000000 0000004000800d70 0000004000800d88 0000000000000001 %o4-7: 0000004000800c90 00000000000000ff 0000004000800471 00000000001001dc %l0-3: 0000000000000004 0000000000000000 0000000000000000 0000000000000000 %l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %i0-3: 00000000002cd000 00000000002cd458 00000000001a6160 00000000002cd458 %i4-7: 0000000000000000 0000000000000000 00000040008005b1 0000000000100498 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: 0000000009004030 y: 0000000000000000 fprs: 0000000000000001
{ %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.