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 ( order == BlasColMajor)
|
||||||
{
|
{
|
||||||
if ( trans == BlasNoTrans && *ldb < *rows ) info = 9;
|
if ( trans == BlasNoTrans && *ldb < *rows ) info = 8;
|
||||||
if ( trans == BlasTrans && *ldb < *cols ) info = 9;
|
if ( trans == BlasTrans && *ldb < *cols ) info = 8;
|
||||||
}
|
}
|
||||||
if ( order == BlasRowMajor)
|
if ( order == BlasRowMajor)
|
||||||
{
|
{
|
||||||
if ( trans == BlasNoTrans && *ldb < *cols ) info = 9;
|
if ( trans == BlasNoTrans && *ldb < *cols ) info = 8;
|
||||||
if ( trans == BlasTrans && *ldb < *rows ) info = 9;
|
if ( trans == BlasTrans && *ldb < *rows ) info = 8;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ( order == BlasColMajor && *lda < *rows ) info = 7;
|
if ( order == BlasColMajor && *lda < *rows ) info = 7;
|
||||||
|
|
Loading…
Reference in New Issue