re PR ada/78845 (Inverse (Real_Matrix) result has wrong bounds)

	PR ada/78845

	* a-ngcoar.adb, a-ngrear.adb (Inverse): call Unit_Matrix with First_1
	set to A'First(2) and vice versa.

From-SVN: r247214

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1cb5c4d13293f3cb8ffb530a775359cf88408fa6..3e6afcd1e9a55c65d6e88219aa2f2524748811b8 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,10 @@
+2017-04-25  Arnaud Charlet  <charlet@adacore.com trojanek>
+
+       PR ada/78845
+
+       * a-ngcoar.adb, a-ngrear.adb (Inverse): call Unit_Matrix with First_1
+       set to A'First(2) and vice versa.
+
 2017-04-25  Yannick Moy  <moy@adacore.com>
 
        * freeze.adb (Freeze_Record_Type): Remove obsolete

diff --git a/gcc/ada/a-ngcoar.adb b/gcc/ada/a-ngcoar.adb
index e9b246574b8ccd88cd2b6aa2ceeefae0d4d1720e..bee1bc1fff95b3e6485e81d52f65537dc21f005e 100644 (file)
--- a/gcc/ada/a-ngcoar.adb
+++ b/gcc/ada/a-ngcoar.adb
@@ -1153,7 +1153,9 @@ package body Ada.Numerics.Generic_Complex_Arrays is
    -------------
 
    function Inverse (A : Complex_Matrix) return Complex_Matrix is
-     (Solve (A, Unit_Matrix (Length (A))));
+     (Solve (A, Unit_Matrix (Length (A),
+                             First_1 => A'First (2),
+                             First_2 => A'First (1))));
 
    -------------
    -- Modulus --

diff --git a/gcc/ada/a-ngrear.adb b/gcc/ada/a-ngrear.adb
index c3b954ab5126c4848436f64fe3a66c58c64c68f8..64df675c1a0479e29ee34482bea93b299b66bb4e 100644 (file)
--- a/gcc/ada/a-ngrear.adb
+++ b/gcc/ada/a-ngrear.adb
@@ -499,7 +499,9 @@ package body Ada.Numerics.Generic_Real_Arrays is
    -------------
 
    function Inverse (A : Real_Matrix) return Real_Matrix is
-     (Solve (A, Unit_Matrix (Length (A))));
+     (Solve (A, Unit_Matrix (Length (A),
+                             First_1 => A'First (2),
+                             First_2 => A'First (1))));
 
    ------------
    -- Jacobi --