Merge pull request #2095 from martin-frbg/trsm

martin-frbg · web-flow · commit 268c28db7dec · 2019-04-28T09:55:25.000+02:00
Correct length of name string in xerbla call
diff --git a/interface/trsm.c b/interface/trsm.c
@@ -204,7 +204,7 @@ void NAME(char *SIDE, char *UPLO, char *TRANS, char *DIAG,
   if (side  < 0)                info =  1;
 
   if (info != 0) {
-    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));
+    BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)-1);
     return;
   }
 

Original file line number	Diff line number	Diff line change
`@@ -204,7 +204,7 @@ void NAME(char SIDE, char UPLO, char TRANS, char DIAG,`
`204`	`204`	`if (side < 0) info = 1;`
`205`	`205`
`206`	`206`	`if (info != 0) {`
`207`		`- BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME));`
	`207`	`+ BLASFUNC(xerbla)(ERROR_NAME, &info, sizeof(ERROR_NAME)-1);`
`208`	`208`	`return;`
`209`	`209`	`}`
`210`	`210`