Mentions légales du service

Skip to content
Snippets Groups Projects
Commit b80c9bf0 authored by BARROS DE ASSIS Lucas's avatar BARROS DE ASSIS Lucas Committed by Mathieu Faverge
Browse files

Revert "Fix error counting when testing"

This reverts commit 39eeeec4
parent b10ae63a
Branches
Tags
No related merge requests found
...@@ -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");
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment