paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test

Browse Source
This commit is contained in:
florian 2005-02-08 19:48:35 +00:00
parent 06b40d7551
commit a091c27609
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/units/math/ttrig1.pp
View File

@ -68,9 +68,9 @@ for i:=1 to dim do
writeln('Testing TAN');
for i:=1 to dim do
begin
if i=9 then Ref := MaxFloat
{ if i=9 then Ref := MaxFloat
else if i=27 then Ref := -Maxfloat
else Ref:=sin(i*10/180*pi)/cos(i*10/180*pi);
else } Ref:=sin(i*10/180*pi)/cos(i*10/180*pi);
Value := tan(i*10/180*pi);
Delta := Value - Ref;
if Abs(Delta) > 1E-15 then