Merge pull request Reference-LAPACK#1018 from mgates3/orhr_col_fix

fix out-of-bounds access in orhr_col
EduardFedorenkov · May 24, 2024 · dd2e5ef · dd2e5ef
2 parents 4a8ed6b + 0d2d601
commit dd2e5ef
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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