Fix compilation and linking with the desired variant of xerbla on Windows/LLVM

Author: martin-frbg

ctest/c_c2chke.c

@@ -33,7 +33,11 @@ void F77_c2chke(char *rout) {
           BETA[2]  = {0.0,0.0},
           RALPHA = 0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else   
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    if (link_xerbla) /* call these first to link */

ctest/c_c3chke.c

@@ -33,7 +33,11 @@ void  F77_c3chke(char *  rout) {
            BETA[2]  = {0.0,0.0},
            RALPHA   = 0.0, RBETA = 0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    cblas_ok = TRUE ;

ctest/c_d2chke.c

@@ -31,7 +31,11 @@ void F77_d2chke(char *rout) {
           Y[2] = {0.0,0.0},
           ALPHA=0.0, BETA=0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    if (link_xerbla) /* call these first to link */

ctest/c_d3chke.c

@@ -31,7 +31,11 @@ void F77_d3chke(char *rout) {
           C[2] = {0.0,0.0},
           ALPHA=0.0, BETA=0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    if (link_xerbla) /* call these first to link */

ctest/c_s2chke.c

@@ -31,7 +31,11 @@ void F77_s2chke(char *rout) {
           Y[2] = {0.0,0.0},
           ALPHA=0.0, BETA=0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    if (link_xerbla) /* call these first to link */

ctest/c_s3chke.c

@@ -31,7 +31,11 @@ void F77_s3chke(char *rout) {
           C[2] = {0.0,0.0},
           ALPHA=0.0, BETA=0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    if (link_xerbla) /* call these first to link */

ctest/c_xerbla.c

@@ -9,7 +9,11 @@ void cblas_xerbla(blasint info, char *rout, char *form, ...)
 {
    extern int cblas_lerr, cblas_info, cblas_ok;
    extern int link_xerbla;
+#ifdef OS_WINDOWS
+   extern __declspec(selectany) int RowMajorStrg;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    /* Initially, c__3chke will call this routine with

ctest/c_z2chke.c

@@ -33,7 +33,11 @@ void F77_z2chke(char *rout) {
           BETA[2]  = {0.0,0.0},
           RALPHA = 0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    if (link_xerbla) /* call these first to link */

ctest/c_z3chke.c

@@ -33,7 +33,11 @@ void  F77_z3chke(char *  rout) {
            BETA[2]  = {0.0,0.0},
            RALPHA   = 0.0, RBETA = 0.0;
    extern int cblas_info, cblas_lerr, cblas_ok;
+#ifdef OS_WINDOWS
+   int RowMajorStrg = TRUE;
+#else
    extern int RowMajorStrg;
+#endif
    extern char *cblas_rout;
 
    cblas_ok = TRUE ;