diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c
index cba0712a2..507dbcf98 100644
--- a/CBLAS/testing/c_c2chke.c
+++ b/CBLAS/testing/c_c2chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 }
 
@@ -60,6 +67,9 @@ void F77_c2chke(char *rout
    link_xerbla = 0;
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
    if (strncmp( sf,"cblas_cgemv",11)==0) {
       cblas_rout = "cblas_cgemv";
@@ -839,4 +849,6 @@ void F77_c2chke(char *rout
        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-12s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }
diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c
index a478a0cfc..306dc1ce9 100644
--- a/CBLAS/testing/c_c3chke.c
+++ b/CBLAS/testing/c_c3chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 }
 
@@ -45,6 +52,9 @@ void  F77_c3chke(char *  rout
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
 #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    #ifdef CBLAS_DLL_IMPORTS
@@ -1949,4 +1959,6 @@ void  F77_c3chke(char *  rout
        printf(" %-13s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-13s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }
diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c
index d6b4160f9..ff0088f4a 100644
--- a/CBLAS/testing/c_d2chke.c
+++ b/CBLAS/testing/c_d2chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 }
 
@@ -59,6 +66,9 @@ void F77_d2chke(char *rout
    link_xerbla = 0;
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
    if (strncmp( sf,"cblas_dgemv",11)==0) {
       cblas_rout = "cblas_dgemv";
@@ -884,4 +894,6 @@ void F77_d2chke(char *rout
        printf(" %-16s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-16s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }
diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c
index 5ef472c14..6e99caedf 100644
--- a/CBLAS/testing/c_d3chke.c
+++ b/CBLAS/testing/c_d3chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 }
 
@@ -59,6 +66,9 @@ void F77_d3chke(char *rout
    link_xerbla = 0;
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
    if (strncmp( sf,"cblas_dgemmtr"   ,13)==0) {
       cblas_rout = "cblas_dgemmtr"   ;
@@ -1834,4 +1844,6 @@ void F77_d3chke(char *rout
        printf(" %-17s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-17s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }
diff --git a/CBLAS/testing/c_s2chke.c b/CBLAS/testing/c_s2chke.c
index 89940b481..e54e5abd4 100644
--- a/CBLAS/testing/c_s2chke.c
+++ b/CBLAS/testing/c_s2chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 }
 
@@ -59,6 +66,9 @@ void F77_s2chke(char *rout
    link_xerbla = 0;
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
    if (strncmp( sf,"cblas_sgemv",11)==0) {
       cblas_rout = "cblas_sgemv";
@@ -884,4 +894,6 @@ void F77_s2chke(char *rout
        printf(" %-16s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-16s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }
diff --git a/CBLAS/testing/c_s3chke.c b/CBLAS/testing/c_s3chke.c
index 6ca1bb8c9..598029a68 100644
--- a/CBLAS/testing/c_s3chke.c
+++ b/CBLAS/testing/c_s3chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 
 }
@@ -60,6 +67,9 @@ void F77_s3chke(char *rout
    link_xerbla = 0;
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
    if (strncmp( sf,"cblas_sgemmtr"   ,13)==0) {
       cblas_rout = "cblas_sgemmtr"   ;
@@ -1838,4 +1848,6 @@ void F77_s3chke(char *rout
        printf(" %-17s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-17s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }
diff --git a/CBLAS/testing/c_xerbla.c b/CBLAS/testing/c_xerbla.c
index 922a1a97c..14a385215 100644
--- a/CBLAS/testing/c_xerbla.c
+++ b/CBLAS/testing/c_xerbla.c
@@ -9,6 +9,7 @@ void API_SUFFIX(cblas_xerbla)(CBLAS_INT info, const char *rout, const char *form
 {
    extern CBLAS_INT cblas_lerr, cblas_info, cblas_ok;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xbad;
    extern char *cblas_rout;
 
    /* Initially, c__3chke may call this routine with
@@ -21,6 +22,7 @@ void API_SUFFIX(cblas_xerbla)(CBLAS_INT info, const char *rout, const char *form
    if (cblas_rout != NULL && strcmp(cblas_rout, rout) != 0){
       printf("***** XERBLA WAS CALLED WITH SRNAME = <%s> INSTEAD OF <%s> *******\n", rout, cblas_rout);
       cblas_ok = FALSE;
+      cblas_xbad = 1;
    }
 
    if (RowMajorStrg)
diff --git a/CBLAS/testing/c_z2chke.c b/CBLAS/testing/c_z2chke.c
index 651c82f03..1f9c3e4c7 100644
--- a/CBLAS/testing/c_z2chke.c
+++ b/CBLAS/testing/c_z2chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 }
 
@@ -61,6 +68,9 @@ void F77_z2chke(char *rout
    link_xerbla = 0;
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
    if (strncmp( sf,"cblas_zgemv",11)==0) {
       cblas_rout = "cblas_zgemv";
@@ -840,4 +850,6 @@ void F77_z2chke(char *rout
        printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-12s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }
diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c
index d7ced2b32..c97d8930d 100644
--- a/CBLAS/testing/c_z3chke.c
+++ b/CBLAS/testing/c_z3chke.c
@@ -5,6 +5,7 @@
 
 CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
 CBLAS_INT link_xerbla=TRUE;
+CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
 char *cblas_rout;
 
 #ifdef F77_Char
@@ -20,11 +21,17 @@ void F77_xerbla(char *srname, void *vinfo
 void chkxer(void) {
    extern CBLAS_INT cblas_ok, cblas_lerr, cblas_info;
    extern CBLAS_INT link_xerbla;
+   extern CBLAS_INT cblas_xtests, cblas_xfails, cblas_xbad;
    extern char *cblas_rout;
+   cblas_xtests++;
    if (cblas_lerr == 1 ) {
       printf("***** ILLEGAL VALUE OF PARAMETER NUMBER %d NOT DETECTED BY %s *****\n", (int) cblas_info, cblas_rout);
       cblas_ok = 0 ;
+      cblas_xfails++;
+   } else if (cblas_xbad) {
+      cblas_xfails++;
    }
+   cblas_xbad = 0;
    cblas_lerr = 1 ;
 }
 
@@ -45,6 +52,9 @@ void F77_z3chke(char *rout
 
    cblas_ok = TRUE ;
    cblas_lerr = PASSED ;
+   cblas_xtests = 0;
+   cblas_xfails = 0;
+   cblas_xbad = 0;
 
 #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
    #ifdef CBLAS_DLL_IMPORTS
@@ -1950,4 +1960,6 @@ void F77_z3chke(char *rout
        printf(" %-13s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
    else
        printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
+   printf(" %-13s ERROR-EXIT TESTS:%9d RUN,%9d FAILED\n",
+          cblas_rout, (int) cblas_xtests, (int) cblas_xfails);
 }