Commit b80c9bf0 authored by BARROS DE ASSIS Lucas's avatar BARROS DE ASSIS Lucas Committed by Mathieu Faverge

Revert "Fix error counting when testing"

This reverts commit 39eeeec4
parent b10ae63a
...@@ -19,6 +19,7 @@ ...@@ -19,6 +19,7 @@
* @author Mathieu Faverge * @author Mathieu Faverge
* @author Emmanuel Agullo * @author Emmanuel Agullo
* @author Cedric Castagnede * @author Cedric Castagnede
* @author Lucas Barros de Assis
* @date 2014-11-16 * @date 2014-11-16
* @precisions normal z -> c d s * @precisions normal z -> c d s
* *
...@@ -149,8 +150,9 @@ int testing_zgels(int argc, char **argv) ...@@ -149,8 +150,9 @@ int testing_zgels(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else { else {
hres++;
printf("************************************************\n"); printf("************************************************\n");
printf(" - TESTING ZGELS ... FAILED !\n"); hres++; printf(" - TESTING ZGELS ... FAILED !\n");
printf("************************************************\n"); printf("************************************************\n");
} }
...@@ -197,6 +199,7 @@ int testing_zgels(int argc, char **argv) ...@@ -197,6 +199,7 @@ int testing_zgels(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else{ else{
hres++;
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
printf("***************************************************\n"); printf("***************************************************\n");
...@@ -223,15 +226,16 @@ int testing_zgels(int argc, char **argv) ...@@ -223,15 +226,16 @@ int testing_zgels(int argc, char **argv)
info_solution = check_solution(M, N, NRHS, A1, LDA, B1, B2, LDB, eps); info_solution = check_solution(M, N, NRHS, A1, LDA, B1, B2, LDB, eps);
if ( (info_solution == 0) & (info_factorization == 0) & (info_ortho == 0) ) { if ( (info_solution == 0) & (info_factorization == 0) & (info_ortho == 0) ) {
printf("***************************************************\n"); printf("***************************************************\n");
printf(" ---- TESTING ZGELQF + ZGELQS ............ PASSED !\n"); printf(" ---- TESTING ZGELQF + ZGELQS ............ PASSED !\n");
printf("***************************************************\n"); printf("***************************************************\n");
} }
else { else {
printf("***************************************************\n"); hres++;
printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); printf("***************************************************\n");
printf("***************************************************\n"); printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
} printf("***************************************************\n");
}
} }
/*---------------------------------------------------------- /*----------------------------------------------------------
...@@ -305,6 +309,8 @@ int testing_zgels(int argc, char **argv) ...@@ -305,6 +309,8 @@ int testing_zgels(int argc, char **argv)
} }
} }
else { else {
hres++;
if (M >= N) { if (M >= N) {
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n"); printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
......
...@@ -14,6 +14,7 @@ ...@@ -14,6 +14,7 @@
* @version 0.9.2 * @version 0.9.2
* @author Mathieu Faverge * @author Mathieu Faverge
* @author Boucherie Raphael * @author Boucherie Raphael
* @author Lucas Barros de Assis
* @date 2017-05-22 * @date 2017-05-22
* @precisions normal z -> c d s * @precisions normal z -> c d s
* *
...@@ -156,8 +157,9 @@ int testing_zgels_hqr(int argc, char **argv) ...@@ -156,8 +157,9 @@ int testing_zgels_hqr(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else { else {
hres++;
printf("************************************************\n"); printf("************************************************\n");
printf(" - TESTING ZGELS_HQR ... FAILED !\n"); hres++; printf(" - TESTING ZGELS_HQR ... FAILED !\n");
printf("************************************************\n"); printf("************************************************\n");
} }
...@@ -233,6 +235,7 @@ int testing_zgels_hqr(int argc, char **argv) ...@@ -233,6 +235,7 @@ int testing_zgels_hqr(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else { else {
hres++;
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
printf("***************************************************\n"); printf("***************************************************\n");
...@@ -305,6 +308,8 @@ int testing_zgels_hqr(int argc, char **argv) ...@@ -305,6 +308,8 @@ int testing_zgels_hqr(int argc, char **argv)
} }
} }
else { else {
hres++;
if (M >= N) { if (M >= N) {
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n"); printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
......
...@@ -14,6 +14,7 @@ ...@@ -14,6 +14,7 @@
* @version 0.9.2 * @version 0.9.2
* @author Mathieu Faverge * @author Mathieu Faverge
* @author Boucherie Raphael * @author Boucherie Raphael
* @author Lucas Barros de Assis
* @date 2017-05-22 * @date 2017-05-22
* @precisions normal z -> c d s * @precisions normal z -> c d s
* *
...@@ -153,8 +154,9 @@ int testing_zgels_systolic(int argc, char **argv) ...@@ -153,8 +154,9 @@ int testing_zgels_systolic(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else { else {
hres++;
printf("************************************************\n"); printf("************************************************\n");
printf(" - TESTING ZGELS_SYSTOLIC ... FAILED !\n"); hres++; printf(" - TESTING ZGELS_SYSTOLIC ... FAILED !\n");
printf("************************************************\n"); printf("************************************************\n");
} }
...@@ -196,6 +198,7 @@ int testing_zgels_systolic(int argc, char **argv) ...@@ -196,6 +198,7 @@ int testing_zgels_systolic(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else{ else{
hres++;
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n");
printf("***************************************************\n"); printf("***************************************************\n");
...@@ -229,6 +232,7 @@ int testing_zgels_systolic(int argc, char **argv) ...@@ -229,6 +232,7 @@ int testing_zgels_systolic(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else { else {
hres++;
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n");
printf("***************************************************\n"); printf("***************************************************\n");
...@@ -303,6 +307,8 @@ int testing_zgels_systolic(int argc, char **argv) ...@@ -303,6 +307,8 @@ int testing_zgels_systolic(int argc, char **argv)
} }
} }
else { else {
hres++;
if (M >= N) { if (M >= N) {
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n"); printf(" - TESTING ZGEQRF + ZUNMQR + ZTRSM ... FAILED !\n");
......
...@@ -18,6 +18,7 @@ ...@@ -18,6 +18,7 @@
* @author Mathieu Faverge * @author Mathieu Faverge
* @author Emmanuel Agullo * @author Emmanuel Agullo
* @author Cedric Castagnede * @author Cedric Castagnede
* @author Lucas Barros de Assis
* @date 2014-11-16 * @date 2014-11-16
* @precisions normal z -> c d s * @precisions normal z -> c d s
* *
...@@ -114,8 +115,9 @@ int testing_zgesv_incpiv(int argc, char **argv) ...@@ -114,8 +115,9 @@ int testing_zgesv_incpiv(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else{ else{
hres++;
printf("************************************************\n"); printf("************************************************\n");
printf(" - TESTING INCPIV ZGESV ... FAILED !\n"); hres++; printf(" - TESTING INCPIV ZGESV ... FAILED !\n");
printf("************************************************\n"); printf("************************************************\n");
} }
...@@ -157,6 +159,7 @@ int testing_zgesv_incpiv(int argc, char **argv) ...@@ -157,6 +159,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else{ else{
hres++;
printf("***************************************************\n"); printf("***************************************************\n");
printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n"); printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n");
printf("***************************************************\n"); printf("***************************************************\n");
...@@ -202,6 +205,7 @@ int testing_zgesv_incpiv(int argc, char **argv) ...@@ -202,6 +205,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
printf("***************************************************\n"); printf("***************************************************\n");
} }
else{ else{
hres++;
printf("**************************************************\n"); printf("**************************************************\n");
printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n"); printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n");
printf("**************************************************\n"); printf("**************************************************\n");
......
...@@ -16,6 +16,7 @@ ...@@ -16,6 +16,7 @@
* from Plasma 2.6.0 for CHAMELEON 0.9.2 * from Plasma 2.6.0 for CHAMELEON 0.9.2
* @author Emmanuel Agullo * @author Emmanuel Agullo
* @author Mathieu Faverge * @author Mathieu Faverge
* @author Lucas Barros de Assis
* @date 2014-11-16 * @date 2014-11-16
* @precisions normal z -> c d s * @precisions normal z -> c d s
* *
...@@ -102,7 +103,8 @@ int testing_zlange(int argc, char **argv) ...@@ -102,7 +103,8 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANGE (%s)............... PASSED !\n", normstr[n]); printf(" ---- TESTING ZLANGE (%s)............... PASSED !\n", normstr[n]);
} }
else { else {
printf(" - TESTING ZLANGE (%s)... FAILED !\n", normstr[n]); hres++; hres++;
printf(" - TESTING ZLANGE (%s)... FAILED !\n", normstr[n]);
} }
printf("***************************************************\n"); printf("***************************************************\n");
...@@ -144,6 +146,7 @@ int testing_zlange(int argc, char **argv) ...@@ -144,6 +146,7 @@ int testing_zlange(int argc, char **argv)
normstr[n], uplostr[u], diagstr[d]); normstr[n], uplostr[u], diagstr[d]);
} }
else { else {
hres++;
printf(" - TESTING ZLANTR (%s, %s, %s)... FAILED !\n", printf(" - TESTING ZLANTR (%s, %s, %s)... FAILED !\n",
normstr[n], uplostr[u], diagstr[d]); normstr[n], uplostr[u], diagstr[d]);
} }
...@@ -184,6 +187,7 @@ int testing_zlange(int argc, char **argv) ...@@ -184,6 +187,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANSY (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]); printf(" ---- TESTING ZLANSY (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
} }
else { else {
hres++;
printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
} }
printf("***************************************************\n"); printf("***************************************************\n");
...@@ -229,6 +233,7 @@ int testing_zlange(int argc, char **argv) ...@@ -229,6 +233,7 @@ int testing_zlange(int argc, char **argv)
printf(" ---- TESTING ZLANHE (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]); printf(" ---- TESTING ZLANHE (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]);
} }
else { else {
hres++;
printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]);
} }
printf("***************************************************\n"); printf("***************************************************\n");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment