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

martin-frbg · web-flow · commit 215279662ed1 · 2024-06-18T11:21:33.000+02:00
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

Original file line number	Diff line number	Diff line change
`@@ -2819,9 +2819,9 @@ SUBROUTINE DDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,`
`2819`	`2819`	`$ MAX( UNFL, TEMP3*ULP )`
`2820`	`2820`	`*`
`2821`	`2821`	`CALL DLACPY( ' ', N, N, V, LDU, A, LDA )`
`2822`		`-`
	`2822`	`+*`
`2823`	`2823`	`1750 CONTINUE`
`2824`		`-`
	`2824`	`+*`
`2825`	`2825`	`1720 CONTINUE`
`2826`	`2826`	`*`
`2827`	`2827`	`* End of Loop -- Check for RESULT(j) > THRESH`