Fixed use of F77_xerbla in CBLAS testing framework

ACSimon33 · ACSimon33 · commit 51219d2328f4 · 2024-06-19T19:31:04.000+01:00
diff --git a/CBLAS/testing/c_s2chke.c b/CBLAS/testing/c_s2chke.c
@@ -46,7 +46,7 @@ void F77_s2chke(char *rout
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
-      F77_xerbla(cblas_rout,&cblas_info);
+      F77_xerbla(cblas_rout,&cblas_info, 1);
    }
 #endif
 

Original file line number	Diff line number	Diff line change
`@@ -46,7 +46,7 @@ void F77_s2chke(char *rout`
`46`	`46`	`if (link_xerbla) /* call these first to link */`
`47`	`47`	`{`
`48`	`48`	`cblas_xerbla(cblas_info,cblas_rout,"");`
`49`		`- F77_xerbla(cblas_rout,&cblas_info);`
	`49`	`+ F77_xerbla(cblas_rout,&cblas_info, 1);`
`50`	`50`	`}`
`51`	`51`	`#endif`
`52`	`52`