From 4dd715d2207aaff765f623c41387b58f5ff9795e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 23 May 2024 23:09:55 +0200 Subject: [PATCH] Fix potential bounds error (Reference-LAPACK PR 1018) --- lapack-netlib/SRC/dorhr_col.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lapack-netlib/SRC/dorhr_col.f b/lapack-netlib/SRC/dorhr_col.f index a9363c1a5a..064f9cb01d 100644 --- a/lapack-netlib/SRC/dorhr_col.f +++ b/lapack-netlib/SRC/dorhr_col.f @@ -419,7 +419,7 @@ SUBROUTINE DORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) * 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 @@ -435,4 +435,4 @@ SUBROUTINE DORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) * * End of DORHR_COL * - END \ No newline at end of file + END