Merge pull request #3238 from martin-frbg/lapack555

Correct function name in error message from SLASQ2 (LAPACK PR555)
OpenMathLib · May 17, 2021 · 03b4d79 · 03b4d79
2 parents e1911b2 + 5c729c6
commit 03b4d79
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lapack-netlib/SRC/slasq2.f b/lapack-netlib/SRC/slasq2.f
@@ -185,7 +185,7 @@ SUBROUTINE SLASQ2( N, Z, INFO )
 *
          IF( Z( 1 ).LT.ZERO ) THEN
             INFO = -201
-            CALL XERBLA( 'DLASQ2', 2 )
+            CALL XERBLA( 'SLASQ2', 2 )
             RETURN
          ELSE IF( Z( 2 ).LT.ZERO ) THEN
             INFO = -202