From 7f30ba884ddad0afd0ad8cd64806852d699c8a0c Mon Sep 17 00:00:00 2001
From: Caroline Newcombe <caroline.newcombe@hpe.com>
Date: Wed, 12 Jun 2024 15:54:20 -0500
Subject: [PATCH] Fix infinite loop when an error occurs in tests ddrvst and
sdrvst
---
TESTING/EIG/ddrvst.f | 8 +++++---
TESTING/EIG/dlahd2.f | 4 ++--
TESTING/EIG/sdrvst.f | 8 +++++---
3 files changed, 12 insertions(+), 8 deletions(-)
diff --git a/TESTING/EIG/ddrvst.f b/TESTING/EIG/ddrvst.f
index 805fd8271..311684238 100644
--- a/TESTING/EIG/ddrvst.f
+++ b/TESTING/EIG/ddrvst.f
@@ -2772,7 +2772,7 @@ SUBROUTINE DDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
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 @@ SUBROUTINE DDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
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,6 +2819,8 @@ SUBROUTINE DDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
$ MAX( UNFL, TEMP3*ULP )
*
CALL DLACPY( ' ', N, N, V, LDU, A, LDA )
+*
+ 1750 CONTINUE
*
1720 CONTINUE
*
diff --git a/TESTING/EIG/dlahd2.f b/TESTING/EIG/dlahd2.f
index a6c65635f..cccbd2537 100644
--- a/TESTING/EIG/dlahd2.f
+++ b/TESTING/EIG/dlahd2.f
@@ -534,8 +534,8 @@ SUBROUTINE DLAHD2( IOUNIT, PATH )
$ / ' 2: norm( I - Q'' Q ) / ( m ulp )',
$ / ' 3: norm( I - PT PT'' ) / ( n ulp )',
$ / ' 4: norm( Y - Q'' C ) / ( norm(Y) max(m,nrhs) ulp )' )
- 9968 FORMAT( / ' Tests performed: See sdrvst.f' )
- 9967 FORMAT( / ' Tests performed: See cdrvst.f' )
+ 9968 FORMAT( / ' Tests performed: See ddrvst.f' )
+ 9967 FORMAT( / ' Tests performed: See zdrvst.f' )
*
* End of DLAHD2
*
diff --git a/TESTING/EIG/sdrvst.f b/TESTING/EIG/sdrvst.f
index be6d33cee..2d02f54ed 100644
--- a/TESTING/EIG/sdrvst.f
+++ b/TESTING/EIG/sdrvst.f
@@ -2772,7 +2772,7 @@ SUBROUTINE SDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
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 @@ SUBROUTINE SDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
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,6 +2819,8 @@ SUBROUTINE SDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
$ MAX( UNFL, TEMP3*ULP )
*
CALL SLACPY( ' ', N, N, V, LDU, A, LDA )
+*
+ 1750 CONTINUE
*
1720 CONTINUE
*