Merge pull request #3204 from martin-frbg/lapack506

Correct INFO value returned by SLASQ2/DLASQ2 (Reference-LAPACK 506)
This commit is contained in:
Martin Kroeker 2021-04-30 13:25:48 +02:00 committed by GitHub
commit c9a82f54d1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 20 additions and 4 deletions

View File

@ -184,8 +184,16 @@
* *
* 2-by-2 case. * 2-by-2 case.
* *
IF( Z( 2 ).LT.ZERO .OR. Z( 3 ).LT.ZERO ) THEN IF( Z( 1 ).LT.ZERO ) THEN
INFO = -2 INFO = -201
CALL XERBLA( 'DLASQ2', 2 )
RETURN
ELSE IF( Z( 2 ).LT.ZERO ) THEN
INFO = -202
CALL XERBLA( 'DLASQ2', 2 )
RETURN
ELSE IF( Z( 3 ).LT.ZERO ) THEN
INFO = -203
CALL XERBLA( 'DLASQ2', 2 ) CALL XERBLA( 'DLASQ2', 2 )
RETURN RETURN
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN

View File

@ -183,8 +183,16 @@
* *
* 2-by-2 case. * 2-by-2 case.
* *
IF( Z( 2 ).LT.ZERO .OR. Z( 3 ).LT.ZERO ) THEN IF( Z( 1 ).LT.ZERO ) THEN
INFO = -2 INFO = -201
CALL XERBLA( 'DLASQ2', 2 )
RETURN
ELSE IF( Z( 2 ).LT.ZERO ) THEN
INFO = -202
CALL XERBLA( 'SLASQ2', 2 )
RETURN
ELSE IF( Z( 3 ).LT.ZERO ) THEN
INFO = -203
CALL XERBLA( 'SLASQ2', 2 ) CALL XERBLA( 'SLASQ2', 2 )
RETURN RETURN
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN