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

2021-10-01 11:17:21 +02:00
parent c34e63ff2f
commit 2be5ee3cca
1 changed files with 1 additions and 1 deletions
--- a/lapack-netlib/SRC/clarrv.f
+++ b/lapack-netlib/SRC/clarrv.f
@@ -351,7 +351,7 @@
 *
 *     Quick return if possible
 *
-      IF( N.LE.0 ) THEN
+      IF( (N.LE.0) .OR. (M.LE.0) ) THEN
         RETURN
      END IF
 *