floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

This commit is contained in:
Martin Kroeker 2024-06-18 11:15:44 +02:00 committed by GitHub
parent 33bb4b98a4
commit cf2962bdb5
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lapack-netlib/TESTING/EIG/ddrvst.f
View File

@ -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