t_id
1523
t_adddate
2005/03/14
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 525350571 | 948167 | False | False | Failed to run |
Record count: 1
Unhandled trap: 0x21 pc: 000000000010bde0 npc: 000000000010bde4 %g0-3: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %g4-7: 0000000000000001 0000000000000000 0000000000000000 0000000000000000 %o0-3: 00000000002db400 0000000040890000 0000000000000000 0000000000000000 %o4-7: 0000000000000000 0000000000000000 0000004000800081 00000000001bdd8c %l0-3: 0000000009000000 0000000000000000 0000000000000000 0000000000000000 %l4-7: 0000000000000000 0000000000000000 0000000000000000 0000000000000000 %i0-3: 0000004000800a48 0000000000000078 0000000000000000 0000004000800a38 %i4-7: 0000000000000000 0000000000000000 0000004000800191 00000000001bef70 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.