From e52daa3151ed059fa509dfe5a32ea76f61890b8d Mon Sep 17 00:00:00 2001
From: Daniel Bielich <drbieli@leconte.icl.utk.edu>
Date: Tue, 21 Mar 2023 17:14:46 -0400
Subject: [PATCH] Fixing compilation warning error for git

---
 TESTING/EIG/cchkdmd.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/TESTING/EIG/cchkdmd.f90 b/TESTING/EIG/cchkdmd.f90
index 17cc4f4a9..a9c181da9 100644
--- a/TESTING/EIG/cchkdmd.f90
+++ b/TESTING/EIG/cchkdmd.f90
@@ -688,7 +688,7 @@
             NFAIL_SVDIFF, ' times. Test FAILED.'
         WRITE(*,*) 'The maximal discrepancy in the singular values (relative to the norm) was ', SVDIFF
         WRITE(*,*) 'It should be up to O(M*N) times EPS, EPS = ', EPS
-        NFAILQ_TOTAL = NFAILQ_TOTAL + SVDIFF
+        NFAILQ_TOTAL = NFAILQ_TOTAL + NFAIL_SVDIFF
       END IF
       IF ( NFAIL_F_QR == 0 ) THEN
         WRITE(*,*) '>>>> F - Q*R test PASSED.'