From 30bcd5516e47d8f9ab27456720404b7e3a65f53a Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Thu, 20 Feb 2025 09:49:47 +0100
Subject: [PATCH] testings: Protect declaration of api field for vendor
testings
---
testing/testing_zgemm.c | 3 ++-
testing/testing_zgetrf.c | 2 ++
testing/testing_zhemm.c | 2 ++
testing/testing_zher2k.c | 2 ++
testing/testing_zherk.c | 2 ++
testing/testing_zlange.c | 2 ++
testing/testing_zlanhe.c | 2 ++
testing/testing_zlansy.c | 2 ++
testing/testing_zlantr.c | 2 ++
testing/testing_zlauum.c | 2 ++
testing/testing_zposv.c | 2 ++
testing/testing_zpotrf.c | 2 ++
testing/testing_zpotri.c | 2 ++
testing/testing_zpotrs.c | 2 ++
testing/testing_zsymm.c | 2 ++
testing/testing_zsyr2k.c | 2 ++
testing/testing_zsyrk.c | 2 ++
testing/testing_ztrmm.c | 2 ++
testing/testing_ztrsm.c | 2 ++
19 files changed, 38 insertions(+), 1 deletion(-)
diff --git a/testing/testing_zgemm.c b/testing/testing_zgemm.c
index 666dde7aa..9d71f589c 100644
--- a/testing/testing_zgemm.c
+++ b/testing/testing_zgemm.c
@@ -140,7 +140,9 @@ testing_zgemm_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_trans_t transA = run_arg_get_trans( args, "transA", ChamNoTrans );
cham_trans_t transB = run_arg_get_trans( args, "transB", ChamNoTrans );
@@ -235,7 +237,6 @@ testing_zgemm_std( run_arg_list_t *args, int check )
free( B );
free( C );
- (void)api;
(void)check;
return hres;
}
diff --git a/testing/testing_zgetrf.c b/testing/testing_zgetrf.c
index fca667603..1db2d0030 100644
--- a/testing/testing_zgetrf.c
+++ b/testing/testing_zgetrf.c
@@ -166,7 +166,9 @@ testing_zgetrf_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
int N = run_arg_get_int( args, "N", 1000 );
int M = run_arg_get_int( args, "M", N );
diff --git a/testing/testing_zhemm.c b/testing/testing_zhemm.c
index 642cf04b9..35a69847e 100644
--- a/testing/testing_zhemm.c
+++ b/testing/testing_zhemm.c
@@ -133,7 +133,9 @@ testing_zhemm_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_side_t side = run_arg_get_side( args, "side", ChamLeft );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zher2k.c b/testing/testing_zher2k.c
index f0d9b8905..5fd3a40db 100644
--- a/testing/testing_zher2k.c
+++ b/testing/testing_zher2k.c
@@ -126,7 +126,9 @@ testing_zher2k_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_trans_t trans = run_arg_get_trans( args, "trans", ChamNoTrans );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zherk.c b/testing/testing_zherk.c
index f6b1be86d..f84e20b80 100644
--- a/testing/testing_zherk.c
+++ b/testing/testing_zherk.c
@@ -120,7 +120,9 @@ testing_zherk_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_trans_t trans = run_arg_get_trans( args, "trans", ChamNoTrans );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c
index 710e02181..8daf2aae3 100644
--- a/testing/testing_zlange.c
+++ b/testing/testing_zlange.c
@@ -121,7 +121,9 @@ testing_zlange_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_normtype_t norm_type = run_arg_get_ntype( args, "norm", ChamMaxNorm );
int N = run_arg_get_int( args, "N", 1000 );
diff --git a/testing/testing_zlanhe.c b/testing/testing_zlanhe.c
index 21ff4406d..fd457fabb 100644
--- a/testing/testing_zlanhe.c
+++ b/testing/testing_zlanhe.c
@@ -119,7 +119,9 @@ testing_zlanhe_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_normtype_t norm_type = run_arg_get_ntype( args, "norm", ChamMaxNorm );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zlansy.c b/testing/testing_zlansy.c
index b0db95639..dc9526aa3 100644
--- a/testing/testing_zlansy.c
+++ b/testing/testing_zlansy.c
@@ -119,7 +119,9 @@ testing_zlansy_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_normtype_t norm_type = run_arg_get_ntype( args, "norm", ChamMaxNorm );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zlantr.c b/testing/testing_zlantr.c
index e41eb2bcd..02f893a65 100644
--- a/testing/testing_zlantr.c
+++ b/testing/testing_zlantr.c
@@ -143,7 +143,9 @@ testing_zlantr_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_normtype_t norm_type = run_arg_get_ntype( args, "norm", ChamMaxNorm );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zlauum.c b/testing/testing_zlauum.c
index 401b1f6b5..fe064eaf7 100644
--- a/testing/testing_zlauum.c
+++ b/testing/testing_zlauum.c
@@ -93,7 +93,9 @@ testing_zlauum_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
int N = run_arg_get_int( args, "N", 1000 );
diff --git a/testing/testing_zposv.c b/testing/testing_zposv.c
index 1ec3a85f5..c2a739a9d 100644
--- a/testing/testing_zposv.c
+++ b/testing/testing_zposv.c
@@ -115,7 +115,9 @@ testing_zposv_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
int N = run_arg_get_int( args, "N", 1000 );
diff --git a/testing/testing_zpotrf.c b/testing/testing_zpotrf.c
index 264fb2711..971de441a 100644
--- a/testing/testing_zpotrf.c
+++ b/testing/testing_zpotrf.c
@@ -90,7 +90,9 @@ testing_zpotrf_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
int N = run_arg_get_int( args, "N", 1000 );
diff --git a/testing/testing_zpotri.c b/testing/testing_zpotri.c
index 91ce688f9..bddbef90a 100644
--- a/testing/testing_zpotri.c
+++ b/testing/testing_zpotri.c
@@ -93,7 +93,9 @@ testing_zpotri_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
int N = run_arg_get_int( args, "N", 1000 );
diff --git a/testing/testing_zpotrs.c b/testing/testing_zpotrs.c
index 718e3da1d..bc87dbe7a 100644
--- a/testing/testing_zpotrs.c
+++ b/testing/testing_zpotrs.c
@@ -105,7 +105,9 @@ testing_zpotrs_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
int N = run_arg_get_int( args, "N", 1000 );
diff --git a/testing/testing_zsymm.c b/testing/testing_zsymm.c
index 56d6b331f..527be00a1 100644
--- a/testing/testing_zsymm.c
+++ b/testing/testing_zsymm.c
@@ -133,7 +133,9 @@ testing_zsymm_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_side_t side = run_arg_get_side( args, "side", ChamLeft );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zsyr2k.c b/testing/testing_zsyr2k.c
index e7a3506a8..d6cd91f50 100644
--- a/testing/testing_zsyr2k.c
+++ b/testing/testing_zsyr2k.c
@@ -126,7 +126,9 @@ testing_zsyr2k_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_trans_t trans = run_arg_get_trans( args, "trans", ChamNoTrans );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_zsyrk.c b/testing/testing_zsyrk.c
index cede56702..4517f1fa0 100644
--- a/testing/testing_zsyrk.c
+++ b/testing/testing_zsyrk.c
@@ -120,7 +120,9 @@ testing_zsyrk_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_trans_t trans = run_arg_get_trans( args, "trans", ChamNoTrans );
cham_uplo_t uplo = run_arg_get_uplo( args, "uplo", ChamUpper );
diff --git a/testing/testing_ztrmm.c b/testing/testing_ztrmm.c
index 96ad81fe7..3b69d3802 100644
--- a/testing/testing_ztrmm.c
+++ b/testing/testing_ztrmm.c
@@ -114,7 +114,9 @@ testing_ztrmm_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_trans_t trans = run_arg_get_trans( args, "trans", ChamNoTrans );
cham_side_t side = run_arg_get_side( args, "side", ChamLeft );
diff --git a/testing/testing_ztrsm.c b/testing/testing_ztrsm.c
index 52cfd4017..aa7ef6353 100644
--- a/testing/testing_ztrsm.c
+++ b/testing/testing_ztrsm.c
@@ -109,7 +109,9 @@ testing_ztrsm_std( run_arg_list_t *args, int check )
int hres = 0;
/* Read arguments */
+#if !defined(CHAMELEON_TESTINGS_VENDOR)
int api = parameters_getvalue_int( "api" );
+#endif
int nb = run_arg_get_nb( args );
cham_trans_t trans = run_arg_get_trans( args, "trans", ChamNoTrans );
cham_side_t side = run_arg_get_side( args, "side", ChamLeft );
--
GitLab