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:18:04 +02:00 committed by GitHub
parent cf2962bdb5
commit bf521a2ced
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lapack-netlib/TESTING/EIG/sdrvst.f
View File

@ -2772,7 +2772,7 @@ c LIWEDC = 12
RESULT( NTEST ) = ULPINV RESULT( NTEST ) = ULPINV
RESULT( NTEST+1 ) = ULPINV RESULT( NTEST+1 ) = ULPINV
RESULT( NTEST+2 ) = ULPINV RESULT( NTEST+2 ) = ULPINV
GO TO 700 GO TO 1750
END IF END IF
END IF END IF
* *
@ -2797,13 +2797,13 @@ c LIWEDC = 12
RETURN RETURN
ELSE ELSE
RESULT( NTEST ) = ULPINV RESULT( NTEST ) = ULPINV
GO TO 700 GO TO 1750
END IF END IF
END IF END IF
* *
IF( M3.EQ.0 .AND. N.GT.0 ) THEN IF( M3.EQ.0 .AND. N.GT.0 ) THEN
RESULT( NTEST ) = ULPINV RESULT( NTEST ) = ULPINV
GO TO 700 GO TO 1750
END IF END IF
* *
* Do test 78 (or +54) * Do test 78 (or +54)
@ -2819,6 +2819,8 @@ c LIWEDC = 12
$ MAX( UNFL, TEMP3*ULP ) $ MAX( UNFL, TEMP3*ULP )
* *
CALL SLACPY( ' ', N, N, V, LDU, A, LDA ) CALL SLACPY( ' ', N, N, V, LDU, A, LDA )
*
1750 CONTINUE
* *
1720 CONTINUE 1720 CONTINUE
* *