diff options
author | julie <julielangou@users.noreply.github.com> | 2014-11-15 04:52:36 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2014-11-15 04:52:36 +0000 |
commit | d31967742f9ba7b749009e94d81d39f1c573277c (patch) | |
tree | 90204434a95f2ef055a8904074f1ecd122c4d5bc /SRC/slals0.f | |
parent | 7a433c1db39624cb47aa32a7c328635a871fe15a (diff) | |
download | lapack-d31967742f9ba7b749009e94d81d39f1c573277c.tar.gz lapack-d31967742f9ba7b749009e94d81d39f1c573277c.tar.bz2 lapack-d31967742f9ba7b749009e94d81d39f1c573277c.zip |
Bux fix from elena Ivanova (Oracle) Rearrange If statements for not overwriting info value
Diffstat (limited to 'SRC/slals0.f')
-rw-r--r-- | SRC/slals0.f | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/SRC/slals0.f b/SRC/slals0.f index e20dbf99..31b469f0 100644 --- a/SRC/slals0.f +++ b/SRC/slals0.f @@ -311,6 +311,7 @@ * Test the input parameters. * INFO = 0 + N = NL + NR + 1 * IF( ( ICOMPQ.LT.0 ) .OR. ( ICOMPQ.GT.1 ) ) THEN INFO = -1 @@ -320,11 +321,7 @@ INFO = -3 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN INFO = -4 - END IF -* - N = NL + NR + 1 -* - IF( NRHS.LT.1 ) THEN + ELSE IF( NRHS.LT.1 ) THEN INFO = -5 ELSE IF( LDB.LT.N ) THEN INFO = -7 |