fix possible infinite loop on error (Reference-LAPACK PR 1024)
This commit is contained in:
parent
33bb4b98a4
commit
cf2962bdb5
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue