projects
/
platform
/
upstream
/
openblas.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Fix argument in SLASET call to zero S
[platform/upstream/openblas.git]
/
lapack-netlib
/
SRC
/
sgelss.f
diff --git
a/lapack-netlib/SRC/sgelss.f
b/lapack-netlib/SRC/sgelss.f
index
29380d4
..
84a882d
100644
(file)
--- a/
lapack-netlib/SRC/sgelss.f
+++ b/
lapack-netlib/SRC/sgelss.f
@@
-407,7
+407,7
@@
* Matrix all zero. Return zero solution.
*
CALL SLASET( 'F', MAX( M, N ), NRHS, ZERO, ZERO, B, LDB )
- CALL SLASET( 'F', MINMN, 1, ZERO, ZERO, S,
1
)
+ CALL SLASET( 'F', MINMN, 1, ZERO, ZERO, S,
MINMN
)
RANK = 0
GO TO 70
END IF