diff --git a/ctest/c_c2chke.c b/ctest/c_c2chke.c
index eb5b99008f..845c598dd4 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 3b4764c4a7..555855a1c6 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 7cdd04135c..0bb5589dd3 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 700cff28f6..b62627635f 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 1455153005..0ff25ccfbd 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 632eaae30e..212a9f40e5 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 9c53576536..b45d55eaf0 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 8767b5201a..703e8ad06c 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 054e723603..92737159fa 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 ;