23 lines
699 B
Diff
23 lines
699 B
Diff
|
From ddb0ff5353637bb5f5ad060c9620e334c143e3d7 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
|
||
|
|
Date: Fri, 1 Oct 2021 11:19:07 +0200
|
||
|
|
Subject: [PATCH] Fix out of bounds read in ?llarv (Reference-LAPACK PR 625)
|
||
|
|
|
||
|
|
---
|
||
|
|
lapack-netlib/SRC/slarrv.f | 2 +-
|
||
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/lapack-netlib/SRC/slarrv.f b/lapack-netlib/SRC/slarrv.f
|
||
|
|
index 04519fde8..9448b2fd9 100644
|
||
|
|
--- a/lapack-netlib/SRC/slarrv.f
|
||
|
|
+++ b/lapack-netlib/SRC/slarrv.f
|
||
|
|
@@ -353,7 +353,7 @@ SUBROUTINE SLARRV( 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
|
||
|
|
*
|