fix possible infinite loop on error (Reference-LAPACK PR 1024)

mmuetzel · Jun 18, 2024 · 2152796 · 2152796
1 parent a9817b4
commit 2152796
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lapack-netlib/TESTING/EIG/ddrvst.f b/lapack-netlib/TESTING/EIG/ddrvst.f
@@ -2819,9 +2819,9 @@ SUBROUTINE DDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
      $                           MAX( UNFL, TEMP3*ULP )
 *
                CALL DLACPY( ' ', N, N, V, LDU, A, LDA )
-
+*
  1750       CONTINUE
-
+*
  1720       CONTINUE
 *
 *           End of Loop -- Check for RESULT(j) > THRESH