Merge pull request #4133 from martin-frbg/issue4132
Fix info code returned for invalid ldb by IMATCOPY
This commit is contained in:
commit
2edebc5fb9
|
@ -100,13 +100,13 @@ void CNAME( enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows,
|
|||
|
||||
if ( order == BlasColMajor)
|
||||
{
|
||||
if ( trans == BlasNoTrans && *ldb < *rows ) info = 9;
|
||||
if ( trans == BlasTrans && *ldb < *cols ) info = 9;
|
||||
if ( trans == BlasNoTrans && *ldb < *rows ) info = 8;
|
||||
if ( trans == BlasTrans && *ldb < *cols ) info = 8;
|
||||
}
|
||||
if ( order == BlasRowMajor)
|
||||
{
|
||||
if ( trans == BlasNoTrans && *ldb < *cols ) info = 9;
|
||||
if ( trans == BlasTrans && *ldb < *rows ) info = 9;
|
||||
if ( trans == BlasNoTrans && *ldb < *cols ) info = 8;
|
||||
if ( trans == BlasTrans && *ldb < *rows ) info = 8;
|
||||
}
|
||||
|
||||
if ( order == BlasColMajor && *lda < *rows ) info = 7;
|
||||
|
|
Loading…
Reference in New Issue