Fix out of bounds read in ?llarv (Reference-LAPACK PR 625)

martin-frbg · web-flow · commit 337b65133df1 · 2021-10-01T11:19:53.000+02:00
diff --git a/lapack-netlib/SRC/zlarrv.f b/lapack-netlib/SRC/zlarrv.f
@@ -351,7 +351,7 @@ SUBROUTINE ZLARRV( N, VL, VU, D, L, PIVMIN,
 *
 *     Quick return if possible
 *
-      IF( N.LE.0 ) THEN
+      IF( (N.LE.0).OR.(M.LE.0) ) THEN
          RETURN
       END IF
 *

Original file line number	Diff line number	Diff line change
`@@ -351,7 +351,7 @@ SUBROUTINE ZLARRV( N, VL, VU, D, L, PIVMIN,`
`351`	`351`	`*`
`352`	`352`	`* Quick return if possible`
`353`	`353`	`*`
`354`		`- IF( N.LE.0 ) THEN`
	`354`	`+ IF( (N.LE.0).OR.(M.LE.0) ) THEN`
`355`	`355`	`RETURN`
`356`	`356`	`END IF`
`357`	`357`	`*`