From 8554a7e586329a24d5171fba9599f115637fd6f4 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 8 Aug 2026 18:15:49 +0200 Subject: [PATCH 1/2] Fix read beyond the array bounds (Reference-LAPACK PR 1342) --- lapack-netlib/TESTING/EIG/dchkdmd.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/dchkdmd.f90 b/lapack-netlib/TESTING/EIG/dchkdmd.f90 index a2b9966288..0fcb07fbbc 100644 --- a/lapack-netlib/TESTING/EIG/dchkdmd.f90 +++ b/lapack-netlib/TESTING/EIG/dchkdmd.f90 @@ -650,7 +650,7 @@ PROGRAM DMD_TEST TMP = ZERO DO i = 1, KQ TMP = MAX( TMP, ABS(RES(i) - RES1(i)) * & - SINGVQX(K)/(ANORM*SINGVQX(1)) ) + SINGVQX(KQ)/(ANORM*SINGVQX(1)) ) END DO TMP_REZQ = MAX( TMP_REZQ, TMP ) IF ( TMP > TOL2 ) THEN From b22e3244e4ba08f27d1ae3696b30a98d719f57e2 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 8 Aug 2026 18:17:04 +0200 Subject: [PATCH 2/2] Fix read beyond the array bounds (Reference-LAPACK PR 1342) --- lapack-netlib/TESTING/EIG/schkdmd.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/schkdmd.f90 b/lapack-netlib/TESTING/EIG/schkdmd.f90 index ce0166763e..f0c633ffec 100644 --- a/lapack-netlib/TESTING/EIG/schkdmd.f90 +++ b/lapack-netlib/TESTING/EIG/schkdmd.f90 @@ -631,7 +631,7 @@ PROGRAM DMD_TEST TMP = ZERO DO i = 1, KQ TMP = MAX( TMP, ABS(RES(i) - RES1(i)) * & - SINGVQX(K)/(ANORM*SINGVQX(1)) ) + SINGVQX(KQ)/(ANORM*SINGVQX(1)) ) END DO TMP_REZQ = MAX( TMP_REZQ, TMP ) IF ( TMP > TOL2 ) THEN