fix linkage of cblas_xerbla

grisuthedragon · grisuthedragon · commit e3951fbc2571 · 2025-07-29T15:47:57.000+02:00
diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 }
 
 void F77_c2chke(char *rout
diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 }
 
 void  F77_c3chke(char *  rout
diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 }
 
 void F77_d2chke(char *rout
diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 }
 
 void F77_d3chke(char *rout
diff --git a/CBLAS/testing/c_s2chke.c b/CBLAS/testing/c_s2chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 }
 
 void F77_s2chke(char *rout
diff --git a/CBLAS/testing/c_s3chke.c b/CBLAS/testing/c_s3chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 
 }
 
diff --git a/CBLAS/testing/c_z2chke.c b/CBLAS/testing/c_z2chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 }
 
 void F77_z2chke(char *rout
diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c
@@ -26,7 +26,6 @@ void chkxer(void) {
       cblas_ok = 0 ;
    }
    cblas_lerr = 1 ;
-   link_xerbla = TRUE;
 }
 
 void F77_z3chke(char *rout

Original file line number	Diff line number	Diff line change
`@@ -26,7 +26,6 @@ void chkxer(void) {`
`26`	`26`	`cblas_ok = 0 ;`
`27`	`27`	`}`
`28`	`28`	`cblas_lerr = 1 ;`
`29`		`- link_xerbla = TRUE;`
`30`	`29`	`}`
`31`	`30`
`32`	`31`	`void F77_c2chke(char *rout`