diff options
author | julie <julielangou@users.noreply.github.com> | 2014-10-31 15:51:06 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2014-10-31 15:51:06 +0000 |
commit | 7a433c1db39624cb47aa32a7c328635a871fe15a (patch) | |
tree | 6518dec977f56f9729ccc2d71e85bb3e5f3ab7ee /SRC/dlasq1.f | |
parent | 3098c5b7ffe11e2955b93f3aff745bd2f4dcf7f3 (diff) | |
download | lapack-7a433c1db39624cb47aa32a7c328635a871fe15a.tar.gz lapack-7a433c1db39624cb47aa32a7c328635a871fe15a.tar.bz2 lapack-7a433c1db39624cb47aa32a7c328635a871fe15a.zip |
Change INFO value when testing N - N is first parameter - INFO should be -1 - bug reported by Elena Ivanova (oracle)
Diffstat (limited to 'SRC/dlasq1.f')
-rw-r--r-- | SRC/dlasq1.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dlasq1.f b/SRC/dlasq1.f index d12fb7a5..799c994c 100644 --- a/SRC/dlasq1.f +++ b/SRC/dlasq1.f @@ -144,7 +144,7 @@ * INFO = 0 IF( N.LT.0 ) THEN - INFO = -2 + INFO = -1 CALL XERBLA( 'DLASQ1', -INFO ) RETURN ELSE IF( N.EQ.0 ) THEN |