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
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