From 0d2d60173bf600567d143f20c898307a3240171e Mon Sep 17 00:00:00 2001
From: Mark Gates <mgates3@icl.utk.edu>
Date: Thu, 23 May 2024 14:55:06 -0400
Subject: [PATCH] fix out-of-bounds access in orhr_col

---
 SRC/cunhr_col.f | 2 +-
 SRC/dorhr_col.f | 2 +-
 SRC/sorhr_col.f | 2 +-
 SRC/zunhr_col.f | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/SRC/cunhr_col.f b/SRC/cunhr_col.f
index 49bc3f5071..edc4002d83 100644
--- a/SRC/cunhr_col.f
+++ b/SRC/cunhr_col.f
@@ -421,7 +421,7 @@ SUBROUTINE CUNHR_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 ) = CZERO
             END DO
          END DO
diff --git a/SRC/dorhr_col.f b/SRC/dorhr_col.f
index c9fcb391cf..2c7a0aee6a 100644
--- a/SRC/dorhr_col.f
+++ b/SRC/dorhr_col.f
@@ -420,7 +420,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
diff --git a/SRC/sorhr_col.f b/SRC/sorhr_col.f
index cf9d985af8..d1d5f131d3 100644
--- a/SRC/sorhr_col.f
+++ b/SRC/sorhr_col.f
@@ -420,7 +420,7 @@ SUBROUTINE SORHR_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
diff --git a/SRC/zunhr_col.f b/SRC/zunhr_col.f
index 44a5ef74bb..fab17eefd7 100644
--- a/SRC/zunhr_col.f
+++ b/SRC/zunhr_col.f
@@ -421,7 +421,7 @@ SUBROUTINE ZUNHR_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 ) = CZERO
             END DO
          END DO