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

* Adjust precision checks for arm.

Browse Source 
git-svn-id: trunk@10829 -
This commit is contained in:
yury 2008-04-27 21:03:57 +00:00
parent 3b72bf98b0
commit cc99d59d8b
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

@ -88,7 +88,7 @@ for i:=1 to 8 do
Ref := i*10;
Value := arctan(tan(i*10/float(180)*pi))/pi*float(180);
Delta := Value - Ref;
if Abs(Delta) > 1E-14 then
if Abs(Delta) > {$ifdef cpuarm} 1E-13 {$else} 1E-14 {$endif} then
begin
writeln(' Error for ArcTan(',i*10,') was:',Value,' should be:',Ref);
halt(1);
@ -101,7 +101,7 @@ for i:=-1 downto -8 do
Ref := i*10;
Value := arctan(tan(i*10/float(180)*pi))/pi*float(180);
Delta := Value - Ref;
if Abs(Delta) > 1E-14 then
if Abs(Delta) > {$ifdef cpuarm} 1E-13 {$else} 1E-14 {$endif} then
begin
writeln(' Error for ArcTan(',i*10,') was:',Value,' should be:',Ref);
halt(1);