Fix out--of-bounds read in xlarrv functions

pradeeptrgit · pradeeptrgit · commit a3b84dc2df08 · 2022-11-10T23:27:27.000-05:00
Memory access bound check is missing in slarrv, dlarrv, clarrv and
zlarrv functions. Updated these functions to ensure array M is
within range 0 &lt;= M &lt;= N

Change-Id: I9a3b7af2399bc435abb2dab7dcdf41d5df12bf4c
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_ */

Original file line number	Diff line number	Diff line change
`@@ -1227,4 +1227,4 @@ int clarrv_(integer n, real vl, real vu, real d__, real * l, real *pivmin, i`
`1227`	`1227`	`return 0;`
`1228`	`1228`	`/* End of CLARRV */`
`1229`	`1229`	`}`
`1230`		`-/* clarrv_ */`
	`1230`	`+/* clarrv_ */`
Original file line number	Diff line number	Diff line change
`@@ -1169,4 +1169,4 @@ int dlarrv_(integer n, doublereal vl, doublereal vu, doublereal d__, doubler`
`1169`	`1169`	`return 0;`
`1170`	`1170`	`/* End of DLARRV */`
`1171`	`1171`	`}`
`1172`		`-/* dlarrv_ */`
	`1172`	`+/* dlarrv_ */`
Original file line number	Diff line number	Diff line change
`@@ -1164,4 +1164,4 @@ int slarrv_(integer n, real vl, real vu, real d__, real * l, real *pivmin, i`
`1164`	`1164`	`return 0;`
`1165`	`1165`	`/* End of SLARRV */`
`1166`	`1166`	`}`
`1167`		`-/* slarrv_ */`
	`1167`	`+/* slarrv_ */`
Original file line number	Diff line number	Diff line change
`@@ -1211,4 +1211,4 @@ int zlarrv_(integer n, doublereal vl, doublereal vu, doublereal d__, doubler`
`1211`	`1211`	`return 0;`
`1212`	`1212`	`/* End of ZLARRV */`
`1213`	`1213`	`}`
`1214`		`-/* zlarrv_ */`
	`1214`	`+/* zlarrv_ */`