From 1092f35f41bb79077dbc83176416bea799eba732 Mon Sep 17 00:00:00 2001
From: Simon Maertens <simon@slmaertens.dev>
Date: Thu, 23 Apr 2026 16:31:29 +0200
Subject: [PATCH] Remove complex ?asum and ?nrm2 routines from real tests since
 they are already tested in the complex tests

---
 CBLAS/testing/c_dblas1.c | 10 ----------
 CBLAS/testing/c_sblas1.c | 11 -----------
 2 files changed, 21 deletions(-)

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)
 {