* Adjust precision checks for arm.

git-svn-id: trunk@10829 -

tests/test/units/math/ttrig1.pp

@@ -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);