Test suite results for test file webtbs/tw3157.pp

Test run data :

Test file "webtbs/tw3157.pp" information:

t_id 1523
t_adddate 2005/03/14
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 937301.

Source:

{ 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.

Link to SVN view of webtbs/tw3157.pp source.