Merge pull request #6220 from martin-frbg/issue6219

Fix default visibility of XERBLA

Author: martin-frbg

common_interface.h

@@ -44,7 +44,7 @@ extern "C" {
 	/* Assume C declarations for C++ */
 #endif  /* __cplusplus */
 
-void    BLASFUNC(xerbla)(char *, blasint *info, blasint);
+OPENBLAS_EXPORT void BLASFUNC(xerbla)(char *, blasint *info, blasint);
 
 OPENBLAS_EXPORT void extern openblas_set_num_threads_(int *);
 

driver/others/xerbla.c

@@ -104,9 +104,11 @@ void __xerbla(char *message, blasint *info, blasint length) {
   return openblas_xerbla_dispatch(message, info, length);
 }
 
+OPENBLAS_EXPORT
 void BLASFUNC(xerbla)(char *, blasint *, blasint)
   __attribute__ ((weak, alias ("__xerbla")));
 #else
+OPENBLAS_EXPORT
 void BLASFUNC(xerbla)(char *message, blasint *info, blasint length) {
   return openblas_xerbla_dispatch(message, info, length);
 }