t_id
1523
t_adddate
2005/03/14
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021979818 | 1027255 | False | False | Failed to run |
Record count: 1
Line "c:=..." raised EInvalidOp: Invalid floating point operation
{ 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.