d90aa9
From 2be5ee3cca97a597f2ee2118808a2d5eacea050c Mon Sep 17 00:00:00 2001
d90aa9
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
d90aa9
Date: Fri, 1 Oct 2021 11:17:21 +0200
d90aa9
Subject: [PATCH 1/4] Fix out of bounds read in ?llarv (Reference-LAPACK PR
d90aa9
 625)
d90aa9
d90aa9
---
d90aa9
 lapack-netlib/SRC/clarrv.f | 2 +-
d90aa9
 1 file changed, 1 insertion(+), 1 deletion(-)
d90aa9
d90aa9
diff --git a/lapack-netlib/SRC/clarrv.f b/lapack-netlib/SRC/clarrv.f
d90aa9
index a45f55ac..26a9febc 100644
d90aa9
--- a/lapack-netlib/SRC/clarrv.f
d90aa9
+++ b/lapack-netlib/SRC/clarrv.f
d90aa9
@@ -351,7 +351,7 @@
d90aa9
 *
d90aa9
 *     Quick return if possible
d90aa9
 *
d90aa9
-      IF( N.LE.0 ) THEN
d90aa9
+      IF( (N.LE.0) .OR. (M.LE.0) ) THEN
d90aa9
          RETURN
d90aa9
       END IF
d90aa9
 *
d90aa9
-- 
d90aa9
2.34.1
d90aa9
d90aa9
d90aa9
From fe497efa0510466fd93578aaf9da1ad8ed4edbe7 Mon Sep 17 00:00:00 2001
d90aa9
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
d90aa9
Date: Fri, 1 Oct 2021 11:18:20 +0200
d90aa9
Subject: [PATCH 2/4] Fix out of bounds read in ?llarv (Reference-LAPACK PR
d90aa9
 625)
d90aa9
d90aa9
---
d90aa9
 lapack-netlib/SRC/dlarrv.f | 2 +-
d90aa9
 1 file changed, 1 insertion(+), 1 deletion(-)
d90aa9
d90aa9
diff --git a/lapack-netlib/SRC/dlarrv.f b/lapack-netlib/SRC/dlarrv.f
d90aa9
index 4a59a2bb..a1c6e9c9 100644
d90aa9
--- a/lapack-netlib/SRC/dlarrv.f
d90aa9
+++ b/lapack-netlib/SRC/dlarrv.f
d90aa9
@@ -353,7 +353,7 @@
d90aa9
 *
d90aa9
 *     Quick return if possible
d90aa9
 *
d90aa9
-      IF( N.LE.0 ) THEN
d90aa9
+      IF( (N.LE.0).OR.(M.LE.0) ) THEN
d90aa9
          RETURN
d90aa9
       END IF
d90aa9
 *
d90aa9
-- 
d90aa9
2.34.1
d90aa9
d90aa9
d90aa9
From ddb0ff5353637bb5f5ad060c9620e334c143e3d7 Mon Sep 17 00:00:00 2001
d90aa9
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
d90aa9
Date: Fri, 1 Oct 2021 11:19:07 +0200
d90aa9
Subject: [PATCH 3/4] Fix out of bounds read in ?llarv (Reference-LAPACK PR
d90aa9
 625)
d90aa9
d90aa9
---
d90aa9
 lapack-netlib/SRC/slarrv.f | 2 +-
d90aa9
 1 file changed, 1 insertion(+), 1 deletion(-)
d90aa9
d90aa9
diff --git a/lapack-netlib/SRC/slarrv.f b/lapack-netlib/SRC/slarrv.f
d90aa9
index 04519fde..9448b2fd 100644
d90aa9
--- a/lapack-netlib/SRC/slarrv.f
d90aa9
+++ b/lapack-netlib/SRC/slarrv.f
d90aa9
@@ -353,7 +353,7 @@
d90aa9
 *
d90aa9
 *     Quick return if possible
d90aa9
 *
d90aa9
-      IF( N.LE.0 ) THEN
d90aa9
+      IF( (N.LE.0).OR.(M.LE.0) ) THEN
d90aa9
          RETURN
d90aa9
       END IF
d90aa9
 *
d90aa9
-- 
d90aa9
2.34.1
d90aa9
d90aa9
d90aa9
From 337b65133df174796794871b3988cd03426e6d41 Mon Sep 17 00:00:00 2001
d90aa9
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
d90aa9
Date: Fri, 1 Oct 2021 11:19:53 +0200
d90aa9
Subject: [PATCH 4/4] Fix out of bounds read in ?llarv (Reference-LAPACK PR
d90aa9
 625)
d90aa9
d90aa9
---
d90aa9
 lapack-netlib/SRC/zlarrv.f | 2 +-
d90aa9
 1 file changed, 1 insertion(+), 1 deletion(-)
d90aa9
d90aa9
diff --git a/lapack-netlib/SRC/zlarrv.f b/lapack-netlib/SRC/zlarrv.f
d90aa9
index 23976dbe..8d10e3c2 100644
d90aa9
--- a/lapack-netlib/SRC/zlarrv.f
d90aa9
+++ b/lapack-netlib/SRC/zlarrv.f
d90aa9
@@ -351,7 +351,7 @@
d90aa9
 *
d90aa9
 *     Quick return if possible
d90aa9
 *
d90aa9
-      IF( N.LE.0 ) THEN
d90aa9
+      IF( (N.LE.0).OR.(M.LE.0) ) THEN
d90aa9
          RETURN
d90aa9
       END IF
d90aa9
 *
d90aa9
-- 
d90aa9
2.34.1
d90aa9