Correct function name in error message from SLASQ2 (Reference-LAPACK PR 555)

Author: martin-frbg

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