diff --git a/CBLAS/testing/c_dblas1.c b/CBLAS/testing/c_dblas1.c
index ee120af59..bc4851012 100644
--- a/CBLAS/testing/c_dblas1.c
+++ b/CBLAS/testing/c_dblas1.c
@@ -74,16 +74,6 @@ void F77_dswap( const CBLAS_INT *N, double *X, const CBLAS_INT *incX,
    return;
 }
 
-double F77_dzasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
-{
-   return cblas_dzasum(*N, X, *incX);
-}
-
-double F77_dznrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
-{
-   return cblas_dznrm2(*N, X, *incX);
-}
-
 CBLAS_INT F77_idamax(const CBLAS_INT *N, const double *X, const CBLAS_INT *incX)
 {
    if (*N < 1 || *incX < 1) return(0);
diff --git a/CBLAS/testing/c_sblas1.c b/CBLAS/testing/c_sblas1.c
index 133944afb..fdbf3a114 100644
--- a/CBLAS/testing/c_sblas1.c
+++ b/CBLAS/testing/c_sblas1.c
@@ -27,17 +27,6 @@ void F77_saxpby(const CBLAS_INT *N, const float *alpha, const float *X,
    return;
 }
 
-
-float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
-{
-   return cblas_scasum(*N, X, *incX);
-}
-
-float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
-{
-   return cblas_scnrm2(*N, X, *incX);
-}
-
 void F77_scopy(const CBLAS_INT *N, const float *X, const CBLAS_INT *incX,
                     float *Y, const CBLAS_INT *incY)
 {