Fix out of bounds read in ?llarv (Reference-LAPACK PR 625)
This commit is contained in:
parent
c34e63ff2f
commit
2be5ee3cca
|
@ -351,7 +351,7 @@
|
||||||
*
|
*
|
||||||
* Quick return if possible
|
* Quick return if possible
|
||||||
*
|
*
|
||||||
IF( N.LE.0 ) THEN
|
IF( (N.LE.0) .OR. (M.LE.0) ) THEN
|
||||||
RETURN
|
RETURN
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
|
|
Loading…
Reference in New Issue