Fix potential bounds error (Reference-LAPACK PR 1018)

martin-frbg · May 23, 2024 · 7ebbe3c · 7ebbe3c
1 parent 791e015
commit 7ebbe3c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lapack-netlib/SRC/zunhr_col.f b/lapack-netlib/SRC/zunhr_col.f
@@ -420,7 +420,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
@@ -436,4 +436,4 @@ SUBROUTINE ZUNHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO )
 *
 *     End of ZUNHR_COL
 *
-      END
+      END