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 |
---|---|---|---|---|
482183151 | 941185 | False | False | Failed to run |
Record count: 1
Unhandled trap: 0x21 pc: 000000000001016c npc: 0000000000010170 %g0-3: 0000000000000000 00000000000d4d4c 0000000000000000 0000000000000000 %g4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %o0-3: 0000000000000000 0000000040800fd8 0000000040800fe4 0000000014dde993 %o4-7: 0000000000000001 0000000040800ee8 0000000040800f58 0000000000010150 %l0-3: 0000000000000004 0000000000000000 0000000000000000 0000000000000000 %l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %i0-3: 00000000c008cccc 00000000cccccccd 00000000000a7f8c 00000000000d3f48 %i4-7: 000000004030a43b 0000000014dde993 0000000040801000 000000000001040c 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.