Question

我有一些示例代码：

#include <mpi.h>
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>

int main(int argc, char** argv) {
  // Initialize the MPI environment
  MPI_Init(&argc, &argv);
  // Find out rank, size
  int world_rank;
  MPI_Comm_rank(MPI_COMM_WORLD, &world_rank);
  int world_size;
  MPI_Comm_size(MPI_COMM_WORLD, &world_size);

  // We are assuming at least 2 processes for this task
  if (world_size < 2) {
    fprintf(stderr, "World size must be greater than 1 for %s\n", argv[0]);
    MPI_Abort(MPI_COMM_WORLD, 1);
  }

  int number;
  if (world_rank == 1) {
    number = -1;
    MPI_Send(&number, 1, MPI_INT, 0, 0, MPI_COMM_WORLD);
    raise(SIGSEGV);
  } else if (world_rank == 0) {
    MPI_Recv(&number, 1, MPI_INT, 1, 0, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
    printf("Process 0 received number %d from process 1\n", number);
  }

  printf("rank %d finalize\n", world_rank);
  MPI_Finalize();
}

等级1发出信号以模拟崩溃。在raise()排名1退出后。但是等级0剧照打印rank 0 finalize。

有没有办法知道等级0在这种情况下排名1是否崩溃？当排名1崩溃时，是否有可能让mpirun杀死等级0？

Answer 1

请注意，您的问题存在争用条件，mpirun可能没有足够的时间注意任务1崩溃并在打印邮件之前终止任务0。

使用下面的选项

检测到崩溃后，您可以强制Open MPI终止所有任务

mpirun -mca orte_abort_on_non_zero_status 1 ...

当一个级别崩溃时，OpenMPI不会杀死其他级别

1 个答案: