[Ada] Fix faulty preconditions for trigonometric functions

2018-05-23  Boris Yakobowski  <yakobowski@adacore.com>

gcc/ada/

	* libgnat/a-ngelfu.ads (Arctanh, Arccoth): Fix faulty preconditions.

From-SVN: r260595

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5a34deeb7def3033adc6cb6b5deac905ec9cca4d..f2e6fde15f6c13a737b07759f575c3c2fa05baaf 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-23  Boris Yakobowski  <yakobowski@adacore.com>
+
+       * libgnat/a-ngelfu.ads (Arctanh, Arccoth): Fix faulty preconditions.
+
 2018-05-23  Arnaud Charlet  <charlet@adacore.com>
 
        * checks.adb (Minimize_Eliminate_Overflows): Default initialize Lo and

diff --git a/gcc/ada/libgnat/a-ngelfu.ads b/gcc/ada/libgnat/a-ngelfu.ads
index 97b22c775efb80fb488386952dfa9eef754c6665..5a58d83dc14fe719dbcc605fd9b2ce6a89e2bf2a 100644 (file)
--- a/gcc/ada/libgnat/a-ngelfu.ads
+++ b/gcc/ada/libgnat/a-ngelfu.ads
@@ -196,10 +196,10 @@ is
        and then (if X = 1.0 then Arccosh'Result = 0.0);
 
    function Arctanh (X : Float_Type'Base) return Float_Type'Base with
-     Pre  => abs X /= 1.0,
+     Pre  => abs X < 1.0,
      Post => (if X = 0.0 then Arctanh'Result = 0.0);
 
    function Arccoth (X : Float_Type'Base) return Float_Type'Base with
-     Pre => X <= 1.0 and abs X /= 1.0;
+     Pre => abs X > 1.0;
 
 end Ada.Numerics.Generic_Elementary_Functions;