Skip to content
Snippets Groups Projects
Commit b2ae926f authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Fix incorrect work-around.

parent 8396175d
No related branches found
No related tags found
No related merge requests found
Pipeline #2647 passed
......@@ -158,11 +158,8 @@ xfail_abort(MPI_Comm comm, const char *msg, const char *source, int line)
{
fprintf(stderr, "Fatal error in %s, line %d: %s\n", source, line, msg);
#ifdef XT_NEED_MPI_ABORT_WORK_AROUND
int fd = open("test_xmap_all2all_fail.result.txt",
O_WRONLY | O_TRUNC | O_CREAT | O_NOCTTY, 0777);
static const char exit_msg[] = "exited with code 3\n";
write(fd, exit_msg, sizeof (exit_msg));
close(fd);
static const char exit_msg[] = "MPI_Abort(0xdeadbeef, 3)\n";
write(STDERR_FILENO, exit_msg, sizeof (exit_msg));
#endif
MPI_Abort(comm, 3);
abort();
......
......@@ -174,6 +174,9 @@ SUBROUTINE xfail_abort(comm, msg, source, line)
CHARACTER(len=*), INTENT(in) :: msg, source
INTEGER :: ierror
WRITE (0, '(4a,i0)') msg, ' at ', source, ', line ', line
#ifdef XT_NEED_MPI_ABORT_WORK_AROUND
WRITE (0, '(a)') 'MPI_Abort(0xdeadbeef, 3)'
#endif
FLUSH(0)
CALL mpi_abort(comm, 3, ierror)
CALL posix_exit(3_c_int)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment