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

OpenMathLib · Oct 1, 2021 · 2be5ee3 · 2be5ee3
1 parent c34e63f
commit 2be5ee3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lapack-netlib/SRC/clarrv.f b/lapack-netlib/SRC/clarrv.f
@@ -351,7 +351,7 @@ SUBROUTINE CLARRV( 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
 *