diff --git a/testing/testing_zgels.c b/testing/testing_zgels.c index 61c6bf31dc53ff7e1df9c1d3fc052214a63bc64b..5c5cea65c52a1caad1d3b60a6490ecc6a859a48d 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"); } @@ -197,6 +199,7 @@ int testing_zgels(int argc, char **argv) printf("***************************************************\n"); } else{ + hres++; printf("***************************************************\n"); printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); printf("***************************************************\n"); @@ -223,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"); - printf("***************************************************\n"); - } + hres++; + printf("***************************************************\n"); + printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); + printf("***************************************************\n"); + } } /*---------------------------------------------------------- @@ -305,6 +309,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 5baf40951c2704cbb1b9e302b3b2750af8c6635f..fc5c0e16276672b6c79bbb9b1b25d0f3b4fe37d3 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,6 +235,7 @@ int testing_zgels_hqr(int argc, char **argv) printf("***************************************************\n"); } else { + hres++; printf("***************************************************\n"); printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); printf("***************************************************\n"); @@ -305,6 +308,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 329f5bc203c49618cf33fc3b108c067ddfd28385..7687b7b36c6bb9832f90fbd3bc912109d488ff5e 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,6 +198,7 @@ int testing_zgels_systolic(int argc, char **argv) printf("***************************************************\n"); } else{ + hres++; printf("***************************************************\n"); printf(" - TESTING ZGEQRF + ZGEQRS ... FAILED !\n"); printf("***************************************************\n"); @@ -229,6 +232,7 @@ int testing_zgels_systolic(int argc, char **argv) printf("***************************************************\n"); } else { + hres++; printf("***************************************************\n"); printf(" - TESTING ZGELQF + ZGELQS ... FAILED !\n"); printf("***************************************************\n"); @@ -303,6 +307,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 fe8fd06dac96500258c1b5094a5697100f9dfb6f..1102e50887bec7422e3c4bfc68da7e0f97cb54ab 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,6 +159,7 @@ int testing_zgesv_incpiv(int argc, char **argv) printf("***************************************************\n"); } else{ + hres++; printf("***************************************************\n"); printf(" - TESTING INCPIV ZGETRF + ZGETRS ... FAILED !\n"); printf("***************************************************\n"); @@ -202,6 +205,7 @@ int testing_zgesv_incpiv(int argc, char **argv) printf("***************************************************\n"); } else{ + hres++; printf("**************************************************\n"); printf(" - TESTING INCPIV ZGETRF + ZTRSMPL + ZTRSM ... FAILED !\n"); printf("**************************************************\n"); diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c index 48787834fa277d75d8b49a7b6680bc48bd33dffc..49e311615cfe75d9e064f3a1e2b6b02d494507f3 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,6 +146,7 @@ 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]); } @@ -184,6 +187,7 @@ int testing_zlange(int argc, char **argv) printf(" ---- TESTING ZLANSY (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]); } else { + hres++; printf(" - TESTING ZLANSY (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); } printf("***************************************************\n"); @@ -229,6 +233,7 @@ int testing_zlange(int argc, char **argv) printf(" ---- TESTING ZLANHE (%s, %s)......... PASSED !\n", normstr[n], uplostr[u]); } else { + hres++; printf(" - TESTING ZLANHE (%s, %s)... FAILED !\n", normstr[n], uplostr[u]); } printf("***************************************************\n");