t_id
1523
t_adddate
2005/03/14
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 482258892 | 941193 | False | False | Failed to run |
Record count: 1
Unhandled trap: 0x21 pc: 000000000010b5d0 npc: 000000000010b5d4 %g0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %g4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %o0-3: 00000000002b6800 000000007ff00000 0000000000000000 00000000001ac6b0 %o4-7: 0000000000000000 0000000000000000 00000040008000f1 000000000019afd4 %l0-3: 0000000009000000 0000000000000000 0000000000000000 0000000000000000 %l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %i0-3: 0000004000800ab8 0000000000000000 0000004000800ac8 00000000000000f8 %i4-7: 0000000000000000 0000000000000000 0000004000800201 000000000019bf7c pstate: 00000092 ccr: 99 (icc: N--C xcc: N--C) asi: 82 tl: 0 pil: 0 gl: 0 tbr: 0000000000000000 hpstate: 0000000000000000 htba: 0000000000000000 cansave: 4 canrestore: 2 otherwin: 0 wstate: 0 cleanwin: 7 cwp: 2 fsr: 000000000f804809 y: 0000000000000000 fprs: 0000000000000001
{ Source provided for Free Pascal Bug Report 3157 }
{ Submitted by "Michalis Kamburelis" on 2004-06-11 }
{ e-mail: michalis@camelot.homedns.org }
{$mode objfpc}
uses SysUtils, Math;
var
c:Single;
temp_float:double;
temp_int:Integer;
begin
try
{ cosh(800) =~ 1.36E+0347, this will fit in Extended but will
not fit in Single or Double.
So instruction below should raise Floating point overflow.
But it does not (yet). }
c:=cosh(800);
except
on E:Exception do
begin
Writeln('Line "c:=..." raised ' +E.ClassName+ ': ' +E.Message);
halt(0);
end;
end;
temp_float:=9/200;
try
{ This innocent instruction will raise EOverflow exception.
Note: if this will be changed to "Round(9/200)" then
this whole program will run with no exception
(I guess that it's because "Round(9/200)" will be calculated
at compile-time). }
temp_int:=Round(temp_float);
except
on E:Exception do
Writeln('Line "temp_int:=..." raised ' +E.ClassName+ ': ' +E.Message);
end;
halt(1);
end.