From 791e015024824a02e5cdc94c020d8c590a97d65c Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 23 May 2024 23:11:14 +0200 Subject: [PATCH] Fix potential bounds error (Reference-LAPACK PR 1018) --- lapack-netlib/SRC/sorhr_col.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/sorhr_col.f b/lapack-netlib/SRC/sorhr_col.f index 5d9188148..ab6df2bc8 100644 --- a/lapack-netlib/SRC/sorhr_col.f +++ b/lapack-netlib/SRC/sorhr_col.f @@ -419,7 +419,7 @@ * JBTEMP2 = JB - 2 DO J = JB, JB+JNB-2 - DO I = J-JBTEMP2, NB + DO I = J-JBTEMP2, MIN( NB, N ) T( I, J ) = ZERO END DO END DO