From cf2962bdb5a0d4ad9607fee0b0e4ac4a08e11225 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Tue, 18 Jun 2024 11:15:44 +0200
Subject: [PATCH] fix possible infinite loop on error (Reference-LAPACK PR
 1024)

---
 lapack-netlib/TESTING/EIG/ddrvst.f | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lapack-netlib/TESTING/EIG/ddrvst.f b/lapack-netlib/TESTING/EIG/ddrvst.f
index 805fd8271..b58930300 100644
--- a/lapack-netlib/TESTING/EIG/ddrvst.f
+++ b/lapack-netlib/TESTING/EIG/ddrvst.f
@@ -2772,7 +2772,7 @@ c           LIWEDC = 12
                      RESULT( NTEST ) = ULPINV
                      RESULT( NTEST+1 ) = ULPINV
                      RESULT( NTEST+2 ) = ULPINV
-                     GO TO 700
+                     GO TO 1750
                   END IF
                END IF
 *
@@ -2797,13 +2797,13 @@ c           LIWEDC = 12
                      RETURN
                   ELSE
                      RESULT( NTEST ) = ULPINV
-                     GO TO 700
+                     GO TO 1750
                   END IF
                END IF
 *
                IF( M3.EQ.0 .AND. N.GT.0 ) THEN
                   RESULT( NTEST ) = ULPINV
-                  GO TO 700
+                  GO TO 1750
                END IF
 *
 *              Do test 78 (or +54)
@@ -2819,7 +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