diff --git a/ctest/c_c2chke.c b/ctest/c_c2chke.c
index eb5b99008..845c598dd 100644
--- a/ctest/c_c2chke.c
+++ b/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 */
diff --git a/ctest/c_c3chke.c b/ctest/c_c3chke.c
index 3b4764c4a..555855a1c 100644
--- a/ctest/c_c3chke.c
+++ b/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 ;
diff --git a/ctest/c_d2chke.c b/ctest/c_d2chke.c
index 7cdd04135..0bb5589dd 100644
--- a/ctest/c_d2chke.c
+++ b/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 */
diff --git a/ctest/c_d3chke.c b/ctest/c_d3chke.c
index 700cff28f..b62627635 100644
--- a/ctest/c_d3chke.c
+++ b/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 */
diff --git a/ctest/c_s2chke.c b/ctest/c_s2chke.c
index 145515300..0ff25ccfb 100644
--- a/ctest/c_s2chke.c
+++ b/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 */
diff --git a/ctest/c_s3chke.c b/ctest/c_s3chke.c
index 632eaae30..212a9f40e 100644
--- a/ctest/c_s3chke.c
+++ b/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 */
diff --git a/ctest/c_xerbla.c b/ctest/c_xerbla.c
index 9c5357653..b45d55eaf 100644
--- a/ctest/c_xerbla.c
+++ b/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
diff --git a/ctest/c_z2chke.c b/ctest/c_z2chke.c
index 8767b5201..703e8ad06 100644
--- a/ctest/c_z2chke.c
+++ b/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 */
diff --git a/ctest/c_z3chke.c b/ctest/c_z3chke.c
index 054e72360..92737159f 100644
--- a/ctest/c_z3chke.c
+++ b/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 ;