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

2024-06-18 11:21:33 +02:00 · 2024-06-18 11:21:33 +02:00 · 215279662e
parent a9817b4212
commit 215279662e
1 changed files with 2 additions and 2 deletions
--- a/lapack-netlib/TESTING/EIG/ddrvst.f
+++ b/lapack-netlib/TESTING/EIG/ddrvst.f
@ -2819,9 +2819,9 @@ c           LIWEDC = 12
     $                           MAX( UNFL, TEMP3*ULP )
 *
               CALL DLACPY( ' ', N, N, V, LDU, A, LDA )
-
+*
 1750       CONTINUE
-
+*
 1720       CONTINUE
 *
 *           End of Loop -- Check for RESULT(j) > THRESH