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

Merge pull request #4757 from martin-frbg/lapack1024 

Fix possible infinite loop on error in the LAPACK testsuite  (Reference-LAPACK PR 1024)
This commit is contained in:
Martin Kroeker 2024-06-19 10:07:38 +02:00 committed by GitHub
parent 33bb4b98a4 215279662e
commit 18063b1ccd
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
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,6 +2819,8 @@ c LIWEDC = 12
$ MAX( UNFL, TEMP3*ULP )
*
CALL DLACPY( ' ', N, N, V, LDU, A, LDA )
*
1750 CONTINUE
*
1720 CONTINUE
*

4
lapack-netlib/TESTING/EIG/dlahd2.f
View File

@ -534,8 +534,8 @@
$ / ' 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
*

8
lapack-netlib/TESTING/EIG/sdrvst.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,6 +2819,8 @@ c LIWEDC = 12
$ MAX( UNFL, TEMP3*ULP )
*
CALL SLACPY( ' ', N, N, V, LDU, A, LDA )
*
1750 CONTINUE
*
1720 CONTINUE
*