cblas: don't use link_xerbla hack if weak symbols are available

Author: veprbl

CBLAS/testing/c_c2chke.c

@@ -36,11 +36,13 @@ void F77_c2chke(char *rout) {
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;

CBLAS/testing/c_c3chke.c

@@ -39,11 +39,13 @@ void  F77_c3chke(char *  rout) {
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    if (strncmp( sf,"cblas_cgemm"   ,11)==0) {
       cblas_rout = "cblas_cgemm"   ;

CBLAS/testing/c_d2chke.c

@@ -34,11 +34,13 @@ void F77_d2chke(char *rout) {
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;

CBLAS/testing/c_d3chke.c

@@ -34,11 +34,13 @@ void F77_d3chke(char *rout) {
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;

CBLAS/testing/c_s2chke.c

@@ -34,11 +34,13 @@ void F77_s2chke(char *rout) {
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;

CBLAS/testing/c_s3chke.c

@@ -34,11 +34,13 @@ void F77_s3chke(char *rout) {
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;

CBLAS/testing/c_xerbla.c

@@ -12,7 +12,7 @@ void cblas_xerbla(CBLAS_INDEX info, const char *rout, const char *form, ...)
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
-   /* Initially, c__3chke will call this routine with
+   /* Initially, c__3chke may call this routine with
     * global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0.
     * This is done to fool the linker into loading these subroutines first
     * instead of ones in the CBLAS or the legacy BLAS library.

CBLAS/testing/c_z2chke.c

@@ -36,11 +36,13 @@ void F77_z2chke(char *rout) {
    extern int RowMajorStrg;
    extern char *cblas_rout;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;

CBLAS/testing/c_z3chke.c

@@ -39,11 +39,13 @@ void  F77_z3chke(char *  rout) {
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
 
+#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    if (link_xerbla) /* call these first to link */
    {
       cblas_xerbla(cblas_info,cblas_rout,"");
       F77_xerbla(cblas_rout,&cblas_info);
    }
+#endif
 
    if (strncmp( sf,"cblas_zgemm"   ,11)==0) {
       cblas_rout = "cblas_zgemm"   ;