Fix out--of-bounds read in xlarrv functions

Memory access bound check is missing in slarrv, dlarrv, clarrv and zlarrv functions. Updated these functions to ensure array M is within range 0 <= M <= N Change-Id: I9a3b7af2399bc435abb2dab7dcdf41d5df12bf4c
amd · Nov 11, 2022 · a3b84dc · a3b84dc
1 parent b64ad8d
commit a3b84dc
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/src/map/lapack2flamec/f2c/c/clarrv.c b/src/map/lapack2flamec/f2c/c/clarrv.c
@@ -1227,4 +1227,4 @@ int clarrv_(integer *n, real *vl, real *vu, real *d__, real * l, real *pivmin, i
     return 0;
     /* End of CLARRV */
 }
-/* clarrv_ */
+/* clarrv_ */
diff --git a/src/map/lapack2flamec/f2c/c/dlarrv.c b/src/map/lapack2flamec/f2c/c/dlarrv.c
@@ -1169,4 +1169,4 @@ int dlarrv_(integer *n, doublereal *vl, doublereal *vu, doublereal *d__, doubler
     return 0;
     /* End of DLARRV */
 }
-/* dlarrv_ */
+/* dlarrv_ */
diff --git a/src/map/lapack2flamec/f2c/c/slarrv.c b/src/map/lapack2flamec/f2c/c/slarrv.c
@@ -1164,4 +1164,4 @@ int slarrv_(integer *n, real *vl, real *vu, real *d__, real * l, real *pivmin, i
     return 0;
     /* End of SLARRV */
 }
-/* slarrv_ */
+/* slarrv_ */
diff --git a/src/map/lapack2flamec/f2c/c/zlarrv.c b/src/map/lapack2flamec/f2c/c/zlarrv.c
@@ -1211,4 +1211,4 @@ int zlarrv_(integer *n, doublereal *vl, doublereal *vu, doublereal *d__, doubler
     return 0;
     /* End of ZLARRV */
 }
-/* zlarrv_ */
+/* zlarrv_ */