Test suite results for test file test/testfpuc.pp

Test run data :

Test file "test/testfpuc.pp" information:

t_id 1318
t_adddate 2004/07/10
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %target=linux,freebsd }

{$mode objfpc}
program testr;

uses sysutils;
function sprintf(buf,fmt : pchar) : longint; varargs;cdecl; external 'c';
function cosh(f : double) : double; cdecl; external 'm';
function ccos(f : double) : double; cdecl; external 'm' name 'cos';

Type
  TTest = Class(TObject)
    Constructor Create(Max : Integer);
  end; 

Constructor TTest.Create(Max : Integer);

Var
  I,J : integer;
  F : single;
  buf : ansistring;
  
begin
  For I:=1 to Max do
    begin
    F:=ccos(I/180*pi);
    setlength(buf,100);
    setlength(buf,sprintf(pchar(buf),'%d: f: %f and round f*10: ',i,f));
    f:=f*10.0;
    f:=cosh(f);
    writeln(buf,round(F));
    f:=cosh(f);
    end;
end;

procedure DoTest;

begin
  With TTest.Create(720) do
    Free;
end;

begin
  DoTest;    
end.

Link to SVN view of test/testfpuc.pp source.