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/dlals0.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/dlals0.f')
| -rw-r--r-- | SRC/dlals0.f | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/SRC/dlals0.f b/SRC/dlals0.f index 5ded3d27..f8fedb45 100644 --- a/SRC/dlals0.f +++ b/SRC/dlals0.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 |