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

gcc/ada/ChangeLog

+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

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 --

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 --