diff options
Diffstat (limited to 'gcc/ada/a-ngcoar.adb')
| -rw-r--r-- | gcc/ada/a-ngcoar.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/a-ngcoar.adb b/gcc/ada/a-ngcoar.adb index 7d5a51e7937..9e0f03818cb 100644 --- a/gcc/ada/a-ngcoar.adb +++ b/gcc/ada/a-ngcoar.adb @@ -65,6 +65,9 @@ package body Ada.Numerics.Generic_Complex_Arrays is Complex_Vector => Complex_Vector, Complex_Matrix => Complex_Matrix); + subtype Real is Real_Arrays.Real; + -- Work around visibility bug ??? + use BLAS, LAPACK; -- Procedure versions of functions returning unconstrained values. @@ -1108,7 +1111,7 @@ package body Ada.Numerics.Generic_Complex_Arrays is ----------------- procedure Eigensystem - (A : in Complex_Matrix; + (A : Complex_Matrix; Values : out Real_Vector; Vectors : out Complex_Matrix) is |