floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix info code returned for invalid ldb

This commit is contained in:
Martin Kroeker 2023-07-09 17:00:25 +02:00 committed by GitHub
parent 4d0b7fbec0
commit 7e93ab1b9e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
interface/imatcopy.c
View File

@ -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;