Commit 4c778492 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

Also report error in test when not using MPI

parent 333572d9
......@@ -199,6 +199,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......@@ -229,6 +231,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......@@ -258,6 +262,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......
......@@ -196,6 +196,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......@@ -229,6 +231,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
if (myid == 0) {
......@@ -260,6 +264,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
if (myid == 0) {
......
......@@ -199,6 +199,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......@@ -229,6 +231,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......@@ -258,6 +262,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......
......@@ -198,6 +198,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......@@ -231,6 +233,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
if (myid == 0) {
......@@ -262,6 +266,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
if (myid == 0) {
......
......@@ -227,6 +227,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......
......@@ -219,6 +219,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......
......@@ -222,6 +222,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......
......@@ -216,6 +216,8 @@ int main(int argc, char** argv) {
printf("error in ELPA solve \n");
#ifdef WITH_MPI
mpierr = MPI_Abort(MPI_COMM_WORLD, 99);
#else
exit(99);
#endif
}
......
......@@ -225,6 +225,8 @@ program test_complex2
write(error_unit,*) "elpa_solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -252,6 +254,8 @@ program test_complex2
write(error_unit,*) "elpa_solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -279,6 +283,8 @@ program test_complex2
write(error_unit,*) "elpa_solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -219,6 +219,8 @@ program test_real2
write(error_unit,*) "elpa_solve_evp_real produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -244,6 +246,8 @@ program test_real2
write(error_unit,*) "elpa_solve_evp_real produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -269,6 +273,8 @@ program test_real2
write(error_unit,*) "elpa_solve_evp_real produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -225,6 +225,8 @@ program test_complex2
write(error_unit,*) "elpa_solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -252,6 +254,8 @@ program test_complex2
write(error_unit,*) "elpa_solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -279,6 +283,8 @@ program test_complex2
write(error_unit,*) "elpa_solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -218,6 +218,8 @@ program test_real2
write(error_unit,*) "elpa_solve_evp_real produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -243,6 +245,8 @@ program test_real2
write(error_unit,*) "elpa_solve_evp_real produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -268,6 +272,8 @@ program test_real2
write(error_unit,*) "elpa_solve_evp_real produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -229,6 +229,8 @@ program test_complex_double_precision
write(error_unit,*) "solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -202,6 +202,8 @@ program test_cholesky
write(error_unit,*) " elpa_cholesky_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -229,6 +229,8 @@ program test_complex_gpu_version_double_precision
write(error_unit,*) "solve_evp_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -202,6 +202,8 @@ program test_invert_trm
write(error_unit,*) " elpa_cholesky_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......@@ -226,6 +228,8 @@ program test_invert_trm
write(error_unit,*) " elpa_invert_trm_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -188,6 +188,8 @@ program test_transpose_multiply
write(error_unit,*) " elpa_mult_at_b_complex produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -221,6 +221,8 @@ program test_real_double_precision
write(error_unit,*) "solve_evp_real_1stage produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -203,6 +203,8 @@ program test_cholesky
write(error_unit,*) "elpa_cholseky_real produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
......@@ -222,6 +222,8 @@ program test_real_gpu_version_double_precision
write(error_unit,*) "solve_evp_real_1stage produced an error! Aborting..."
#ifdef WITH_MPI
call MPI_ABORT(mpi_comm_world, 1, mpierr)
#else
call exit(1)
#endif
endif
......
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