Merge pull request #4133 from martin-frbg/issue4132

martin-frbg · web-flow · commit 2edebc5fb9dd · 2023-07-10T01:50:38.000+02:00
Fix info code returned for invalid ldb by IMATCOPY
diff --git a/interface/imatcopy.c b/interface/imatcopy.c
@@ -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;

Original file line number	Diff line number	Diff line change
`@@ -100,13 +100,13 @@ void CNAME( enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows,`
`100`	`100`
`101`	`101`	`if ( order == BlasColMajor)`
`102`	`102`	`{`
`103`		`- if ( trans == BlasNoTrans && ldb < rows ) info = 9;`
`104`		`- if ( trans == BlasTrans && ldb < cols ) info = 9;`
	`103`	`+ if ( trans == BlasNoTrans && ldb < rows ) info = 8;`
	`104`	`+ if ( trans == BlasTrans && ldb < cols ) info = 8;`
`105`	`105`	`}`
`106`	`106`	`if ( order == BlasRowMajor)`
`107`	`107`	`{`
`108`		`- if ( trans == BlasNoTrans && ldb < cols ) info = 9;`
`109`		`- if ( trans == BlasTrans && ldb < rows ) info = 9;`
	`108`	`+ if ( trans == BlasNoTrans && ldb < cols ) info = 8;`
	`109`	`+ if ( trans == BlasTrans && ldb < rows ) info = 8;`
`110`	`110`	`}`
`111`	`111`
`112`	`112`	`if ( order == BlasColMajor && lda < rows ) info = 7;`