diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2017-04-25 14:44:16 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 14:44:16 +0200 |
| commit | 9dd958d2d16fe7b6869392682e693a65bf1e26be (patch) | |
| tree | 3abfc88988b29332ba76d8c45adbfda348237720 | |
| parent | c16fa01e7ec8d1478e1f1f2e05fa15e9466add8a (diff) | |
| download | gcc-9dd958d2d16fe7b6869392682e693a65bf1e26be.zip gcc-9dd958d2d16fe7b6869392682e693a65bf1e26be.tar.gz gcc-9dd958d2d16fe7b6869392682e693a65bf1e26be.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/a-ngcoar.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/a-ngrear.adb | 4 |
3 files changed, 13 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1cb5c4d..3e6afcd 100644 --- 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 e9b2465..bee1bc1 100644 --- 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 c3b954a..64df675 100644 --- 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 -- |