From e2c1a1e26959b772db419383746a32836e25600e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 23 May 2024 23:08:27 +0200 Subject: [PATCH 1/4] Fix potential bounds error (Reference-LAPACK PR 1018) --- lapack-netlib/SRC/cunhr_col.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lapack-netlib/SRC/cunhr_col.f b/lapack-netlib/SRC/cunhr_col.f index faa37d3ed..b86bcd505 100644 --- a/lapack-netlib/SRC/cunhr_col.f +++ b/lapack-netlib/SRC/cunhr_col.f @@ -420,7 +420,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 ) = CZERO END DO END DO @@ -436,4 +436,4 @@ * * End of CUNHR_COL * - END \ No newline at end of file + END From 4dd715d2207aaff765f623c41387b58f5ff9795e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 23 May 2024 23:09:55 +0200 Subject: [PATCH 2/4] 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 a9363c1a5..064f9cb01 100644 --- a/lapack-netlib/SRC/dorhr_col.f +++ b/lapack-netlib/SRC/dorhr_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 @@ -435,4 +435,4 @@ * * End of DORHR_COL * - END \ No newline at end of file + END From 791e015024824a02e5cdc94c020d8c590a97d65c Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 23 May 2024 23:11:14 +0200 Subject: [PATCH 3/4] 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 From 7ebbe3cc72f48482379ed1f9892fc557275165a2 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 23 May 2024 23:12:19 +0200 Subject: [PATCH 4/4] Fix potential bounds error (Reference-LAPACK PR 1018) --- lapack-netlib/SRC/zunhr_col.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lapack-netlib/SRC/zunhr_col.f b/lapack-netlib/SRC/zunhr_col.f index 3c7b2deb1..ce5c09e06 100644 --- a/lapack-netlib/SRC/zunhr_col.f +++ b/lapack-netlib/SRC/zunhr_col.f @@ -420,7 +420,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 ) = CZERO END DO END DO @@ -436,4 +436,4 @@ * * End of ZUNHR_COL * - END \ No newline at end of file + END