From 39eeeec42f43f7258c3cecc0a28dcb7fd13cd9ef Mon Sep 17 00:00:00 2001
From: Lucas Barros de Assis <lucas.barros-de-assis@inria.fr>
Date: Wed, 12 Jun 2019 16:16:05 +0200
Subject: [PATCH 1/4] Fix error counting when testing
---
testing/testing_zgels.c | 7 +++++--
testing/testing_zgels_hqr.c | 4 +++-
testing/testing_zgels_systolic.c | 6 ++++--
testing/testing_zgesv_incpiv.c | 4 ++--
testing/testing_zlange.c | 6 +++---
5 files changed, 17 insertions(+), 10 deletions(-)
diff --git a/testing/testing_zgels.c b/testing/testing_zgels.c
index 61c6bf31d..24e6869c8 100644
--- a/testing/testing_zgels.c
+++ b/testing/testing_zgels.c
@@ -197,8 +197,9 @@ int testing_zgels(int argc, char **argv)
printf("***************************************************\n");
}
else{
+ hres++;
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -229,7 +230,7 @@ int testing_zgels(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -305,6 +306,8 @@ int testing_zgels(int argc, char **argv)
}
}
else {
+ hres++;
+
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgels_hqr.c b/testing/testing_zgels_hqr.c
index 5baf40951..e70598627 100644
--- a/testing/testing_zgels_hqr.c
+++ b/testing/testing_zgels_hqr.c
@@ -234,7 +234,7 @@ int testing_zgels_hqr(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -305,6 +305,8 @@ int testing_zgels_hqr(int argc, char **argv)
}
}
else {
+ hres++;
+
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgels_systolic.c b/testing/testing_zgels_systolic.c
index 329f5bc20..2656f248c 100644
--- a/testing/testing_zgels_systolic.c
+++ b/testing/testing_zgels_systolic.c
@@ -197,7 +197,7 @@ int testing_zgels_systolic(int argc, char **argv)
}
else{
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -230,7 +230,7 @@ int testing_zgels_systolic(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -303,6 +303,8 @@ int testing_zgels_systolic(int argc, char **argv)
}
}
else {
+ hres++;
+
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgesv_incpiv.c b/testing/testing_zgesv_incpiv.c
index fe8fd06da..f6d83c04a 100644
--- a/testing/testing_zgesv_incpiv.c
+++ b/testing/testing_zgesv_incpiv.c
@@ -158,7 +158,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
}
else{
printf("***************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n");
+ printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
@@ -203,7 +203,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
}
else{
printf("**************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n");
+ printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n"); hres++;
printf("**************************************************\n");
}
diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c
index 48787834f..a4828fb8f 100644
--- a/testing/testing_zlange.c
+++ b/testing/testing_zlange.c
@@ -145,7 +145,7 @@ int testing_zlange(int argc, char **argv)
}
else {
printf(" - TESTING ZLANTR (%s, %s, %s)... FAILED !\n",
- normstr[n], uplostr[u], diagstr[d]);
+ normstr[n], uplostr[u], diagstr[d]); hres++;
}
printf("***************************************************\n");
}
@@ -184,7 +184,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANSY (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
+ printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
}
printf("***************************************************\n");
}
@@ -229,7 +229,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANHE (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
+ printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
}
printf("***************************************************\n");
}
--
GitLab
From 985080e96409e9b752347fafdd81d2f6881fcc10 Mon Sep 17 00:00:00 2001
From: BARROS DE ASSIS Lucas <lucas.barros-de-assis@inria.fr>
Date: Wed, 12 Jun 2019 16:57:12 +0200
Subject: [PATCH 2/4] Revert "Fix error counting when testing"
This reverts commit 39eeeec42f43f7258c3cecc0a28dcb7fd13cd9ef
---
testing/testing_zgels.c | 7 ++-----
testing/testing_zgels_hqr.c | 4 +---
testing/testing_zgels_systolic.c | 6 ++----
testing/testing_zgesv_incpiv.c | 4 ++--
testing/testing_zlange.c | 6 +++---
5 files changed, 10 insertions(+), 17 deletions(-)
diff --git a/testing/testing_zgels.c b/testing/testing_zgels.c
index 24e6869c8..61c6bf31d 100644
--- a/testing/testing_zgels.c
+++ b/testing/testing_zgels.c
@@ -197,9 +197,8 @@ int testing_zgels(int argc, char **argv)
printf("***************************************************\n");
}
else{
- hres++;
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
printf("***************************************************\n");
}
}
@@ -230,7 +229,7 @@ int testing_zgels(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
printf("***************************************************\n");
}
}
@@ -306,8 +305,6 @@ int testing_zgels(int argc, char **argv)
}
}
else {
- hres++;
-
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgels_hqr.c b/testing/testing_zgels_hqr.c
index e70598627..5baf40951 100644
--- a/testing/testing_zgels_hqr.c
+++ b/testing/testing_zgels_hqr.c
@@ -234,7 +234,7 @@ int testing_zgels_hqr(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
printf("***************************************************\n");
}
}
@@ -305,8 +305,6 @@ int testing_zgels_hqr(int argc, char **argv)
}
}
else {
- hres++;
-
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgels_systolic.c b/testing/testing_zgels_systolic.c
index 2656f248c..329f5bc20 100644
--- a/testing/testing_zgels_systolic.c
+++ b/testing/testing_zgels_systolic.c
@@ -197,7 +197,7 @@ int testing_zgels_systolic(int argc, char **argv)
}
else{
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
printf("***************************************************\n");
}
}
@@ -230,7 +230,7 @@ int testing_zgels_systolic(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
printf("***************************************************\n");
}
}
@@ -303,8 +303,6 @@ int testing_zgels_systolic(int argc, char **argv)
}
}
else {
- hres++;
-
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgesv_incpiv.c b/testing/testing_zgesv_incpiv.c
index f6d83c04a..fe8fd06da 100644
--- a/testing/testing_zgesv_incpiv.c
+++ b/testing/testing_zgesv_incpiv.c
@@ -158,7 +158,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
}
else{
printf("***************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n"); hres++;
+ printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n");
printf("***************************************************\n");
}
@@ -203,7 +203,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
}
else{
printf("**************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n"); hres++;
+ printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n");
printf("**************************************************\n");
}
diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c
index a4828fb8f..48787834f 100644
--- a/testing/testing_zlange.c
+++ b/testing/testing_zlange.c
@@ -145,7 +145,7 @@ int testing_zlange(int argc, char **argv)
}
else {
printf(" - TESTING ZLANTR (%s, %s, %s)... FAILED !\n",
- normstr[n], uplostr[u], diagstr[d]); hres++;
+ normstr[n], uplostr[u], diagstr[d]);
}
printf("***************************************************\n");
}
@@ -184,7 +184,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANSY (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
+ printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
}
printf("***************************************************\n");
}
@@ -229,7 +229,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANHE (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
+ printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
}
printf("***************************************************\n");
}
--
GitLab
From 079883340b98b73ed939d7f08b8e8bf9fe2a717f Mon Sep 17 00:00:00 2001
From: Lucas Barros de Assis <lucas.barros-de-assis@inria.fr>
Date: Wed, 12 Jun 2019 17:02:38 +0200
Subject: [PATCH 3/4] Fix error counting when testing
---
testing/testing_zgels.c | 7 +++++--
testing/testing_zgels_hqr.c | 4 +++-
testing/testing_zgels_systolic.c | 6 ++++--
testing/testing_zgesv_incpiv.c | 4 ++--
testing/testing_zlange.c | 6 +++---
5 files changed, 17 insertions(+), 10 deletions(-)
diff --git a/testing/testing_zgels.c b/testing/testing_zgels.c
index 61c6bf31d..24e6869c8 100644
--- a/testing/testing_zgels.c
+++ b/testing/testing_zgels.c
@@ -197,8 +197,9 @@ int testing_zgels(int argc, char **argv)
printf("***************************************************\n");
}
else{
+ hres++;
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -229,7 +230,7 @@ int testing_zgels(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -305,6 +306,8 @@ int testing_zgels(int argc, char **argv)
}
}
else {
+ hres++;
+
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgels_hqr.c b/testing/testing_zgels_hqr.c
index 5baf40951..e70598627 100644
--- a/testing/testing_zgels_hqr.c
+++ b/testing/testing_zgels_hqr.c
@@ -234,7 +234,7 @@ int testing_zgels_hqr(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -305,6 +305,8 @@ int testing_zgels_hqr(int argc, char **argv)
}
}
else {
+ hres++;
+
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgels_systolic.c b/testing/testing_zgels_systolic.c
index 329f5bc20..2656f248c 100644
--- a/testing/testing_zgels_systolic.c
+++ b/testing/testing_zgels_systolic.c
@@ -197,7 +197,7 @@ int testing_zgels_systolic(int argc, char **argv)
}
else{
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -230,7 +230,7 @@ int testing_zgels_systolic(int argc, char **argv)
}
else {
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
}
@@ -303,6 +303,8 @@ int testing_zgels_systolic(int argc, char **argv)
}
}
else {
+ hres++;
+
if (M >= N) {
printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
diff --git a/testing/testing_zgesv_incpiv.c b/testing/testing_zgesv_incpiv.c
index fe8fd06da..f6d83c04a 100644
--- a/testing/testing_zgesv_incpiv.c
+++ b/testing/testing_zgesv_incpiv.c
@@ -158,7 +158,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
}
else{
printf("***************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n");
+ printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n"); hres++;
printf("***************************************************\n");
}
@@ -203,7 +203,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
}
else{
printf("**************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n");
+ printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n"); hres++;
printf("**************************************************\n");
}
diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c
index 48787834f..a4828fb8f 100644
--- a/testing/testing_zlange.c
+++ b/testing/testing_zlange.c
@@ -145,7 +145,7 @@ int testing_zlange(int argc, char **argv)
}
else {
printf(" - TESTING ZLANTR (%s, %s, %s)... FAILED !\n",
- normstr[n], uplostr[u], diagstr[d]);
+ normstr[n], uplostr[u], diagstr[d]); hres++;
}
printf("***************************************************\n");
}
@@ -184,7 +184,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANSY (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
+ printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
}
printf("***************************************************\n");
}
@@ -229,7 +229,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANHE (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
+ printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
}
printf("***************************************************\n");
}
--
GitLab
From 99cadb6b1e9e0b446fb7a7e178e4844873e59fcb Mon Sep 17 00:00:00 2001
From: Lucas Barros de Assis <lucas.barros-de-assis@inria.fr>
Date: Thu, 13 Jun 2019 14:27:17 +0200
Subject: [PATCH 4/4] Added as author and fixed incrementing in the same line
---
testing/testing_zgels.c | 21 ++++++++++++---------
testing/testing_zgels_hqr.c | 7 +++++--
testing/testing_zgels_systolic.c | 10 +++++++---
testing/testing_zgesv_incpiv.c | 10 +++++++---
testing/testing_zlange.c | 13 +++++++++----
5 files changed, 40 insertions(+), 21 deletions(-)
diff --git a/testing/testing_zgels.c b/testing/testing_zgels.c
index 24e6869c8..5c5cea65c 100644
--- a/testing/testing_zgels.c
+++ b/testing/testing_zgels.c
@@ -19,6 +19,7 @@
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
+ * @author Lucas Barros de Assis
* @date 2014-11-16
* @precisions normal z -> c d s
*
@@ -149,8 +150,9 @@ int testing_zgels(int argc, char **argv)
printf("***************************************************\n");
}
else {
+ hres++;
printf("************************************************\n");
- printf(" - TESTING ZGELS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELS ... FAILED !\n");
printf("************************************************\n");
}
@@ -199,7 +201,7 @@ int testing_zgels(int argc, char **argv)
else{
hres++;
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
printf("***************************************************\n");
}
}
@@ -224,15 +226,16 @@ int testing_zgels(int argc, char **argv)
info_solution = check_solution(M, N, NRHS, A1, LDA, B1, B2, LDB, eps);
if ( (info_solution == 0) & (info_factorization == 0) & (info_ortho == 0) ) {
- printf("***************************************************\n");
- printf(" ---- TESTING ZGELQF + ZGELQS ............ PASSED !\n");
- printf("***************************************************\n");
+ printf("***************************************************\n");
+ printf(" ---- TESTING ZGELQF + ZGELQS ............ PASSED !\n");
+ printf("***************************************************\n");
}
else {
- printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
- printf("***************************************************\n");
- }
+ hres++;
+ printf("***************************************************\n");
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
+ printf("***************************************************\n");
+ }
}
/*----------------------------------------------------------
diff --git a/testing/testing_zgels_hqr.c b/testing/testing_zgels_hqr.c
index e70598627..fc5c0e162 100644
--- a/testing/testing_zgels_hqr.c
+++ b/testing/testing_zgels_hqr.c
@@ -14,6 +14,7 @@
* @version 0.9.2
* @author Mathieu Faverge
* @author Boucherie Raphael
+ * @author Lucas Barros de Assis
* @date 2017-05-22
* @precisions normal z -> c d s
*
@@ -156,8 +157,9 @@ int testing_zgels_hqr(int argc, char **argv)
printf("***************************************************\n");
}
else {
+ hres++;
printf("************************************************\n");
- printf(" - TESTING ZGELS_HQR ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELS_HQR ... FAILED !\n");
printf("************************************************\n");
}
@@ -233,8 +235,9 @@ int testing_zgels_hqr(int argc, char **argv)
printf("***************************************************\n");
}
else {
+ hres++;
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
printf("***************************************************\n");
}
}
diff --git a/testing/testing_zgels_systolic.c b/testing/testing_zgels_systolic.c
index 2656f248c..7687b7b36 100644
--- a/testing/testing_zgels_systolic.c
+++ b/testing/testing_zgels_systolic.c
@@ -14,6 +14,7 @@
* @version 0.9.2
* @author Mathieu Faverge
* @author Boucherie Raphael
+ * @author Lucas Barros de Assis
* @date 2017-05-22
* @precisions normal z -> c d s
*
@@ -153,8 +154,9 @@ int testing_zgels_systolic(int argc, char **argv)
printf("***************************************************\n");
}
else {
+ hres++;
printf("************************************************\n");
- printf(" - TESTING ZGELS_SYSTOLIC ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELS_SYSTOLIC ... FAILED !\n");
printf("************************************************\n");
}
@@ -196,8 +198,9 @@ int testing_zgels_systolic(int argc, char **argv)
printf("***************************************************\n");
}
else{
+ hres++;
printf("***************************************************\n");
- printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
printf("***************************************************\n");
}
}
@@ -229,8 +232,9 @@ int testing_zgels_systolic(int argc, char **argv)
printf("***************************************************\n");
}
else {
+ hres++;
printf("***************************************************\n");
- printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); hres++;
+ printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
printf("***************************************************\n");
}
}
diff --git a/testing/testing_zgesv_incpiv.c b/testing/testing_zgesv_incpiv.c
index f6d83c04a..1102e5088 100644
--- a/testing/testing_zgesv_incpiv.c
+++ b/testing/testing_zgesv_incpiv.c
@@ -18,6 +18,7 @@
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
+ * @author Lucas Barros de Assis
* @date 2014-11-16
* @precisions normal z -> c d s
*
@@ -114,8 +115,9 @@ int testing_zgesv_incpiv(int argc, char **argv)
printf("***************************************************\n");
}
else{
+ hres++;
printf("************************************************\n");
- printf(" - TESTING INCPIV ZGESV ... FAILED !\n"); hres++;
+ printf(" - TESTING INCPIV ZGESV ... FAILED !\n");
printf("************************************************\n");
}
@@ -157,8 +159,9 @@ int testing_zgesv_incpiv(int argc, char **argv)
printf("***************************************************\n");
}
else{
+ hres++;
printf("***************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n"); hres++;
+ printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n");
printf("***************************************************\n");
}
@@ -202,8 +205,9 @@ int testing_zgesv_incpiv(int argc, char **argv)
printf("***************************************************\n");
}
else{
+ hres++;
printf("**************************************************\n");
- printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n"); hres++;
+ printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n");
printf("**************************************************\n");
}
diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c
index a4828fb8f..49e311615 100644
--- a/testing/testing_zlange.c
+++ b/testing/testing_zlange.c
@@ -16,6 +16,7 @@
* from Plasma 2.6.0 for CHAMELEON 0.9.2
* @author Emmanuel Agullo
* @author Mathieu Faverge
+ * @author Lucas Barros de Assis
* @date 2014-11-16
* @precisions normal z -> c d s
*
@@ -102,7 +103,8 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANGE (%s)............... PASSED !\n", normstr[n]);
}
else {
- printf(" - TESTING ZLANGE (%s)... FAILED !\n", normstr[n]); hres++;
+ hres++;
+ printf(" - TESTING ZLANGE (%s)... FAILED !\n", normstr[n]);
}
printf("***************************************************\n");
@@ -144,8 +146,9 @@ int testing_zlange(int argc, char **argv)
normstr[n], uplostr[u], diagstr[d]);
}
else {
+ hres++;
printf(" - TESTING ZLANTR (%s, %s, %s)... FAILED !\n",
- normstr[n], uplostr[u], diagstr[d]); hres++;
+ normstr[n], uplostr[u], diagstr[d]);
}
printf("***************************************************\n");
}
@@ -184,7 +187,8 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANSY (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
+ hres++;
+ printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
}
printf("***************************************************\n");
}
@@ -229,7 +233,8 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANHE (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
}
else {
- printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); hres++;
+ hres++;
+ printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
}
printf("***************************************************\n");
}
--
GitLab