Shintaro Iwasaki
5ef6367f73
Specifically, this patch makes the following changes. build scripts: - master_top_srcdir -> main_top_srcdir Git: - "master" -> "main" branch (variable names and comments) global structures and variables: - MPIR_ThreadInfo.master_thread -> MPIR_ThreadInfo.main_thread - struct PMIMaster -> struct PMIMain - PMI2_Connect_comm_t.isMaster -> PMI2_Connect_comm_t.isMain names of tests: - spawntest_master -> spawntest_parent - taskmaster -> taskmanager - th_taskmaster -> th_taskmanager` comments and names of temporary/local variables: - master -> main, parent, server, ... - slave -> child, worker, client, ...
43 linhas
1.1 KiB
C
43 linhas
1.1 KiB
C
/*
|
|
* Copyright (C) by Argonne National Laboratory
|
|
* See COPYRIGHT in top-level directory
|
|
*/
|
|
|
|
#include <mpi.h>
|
|
#include <stdio.h>
|
|
|
|
/* Derived from mpi4py test case. This test that tries to follow what the MPI
|
|
* standard says about spawning processes with arguments that should be
|
|
* relevant only at the root process. See
|
|
* https://bitbucket.org/mpi4py/mpi4py/issues/19
|
|
* and
|
|
* https://trac.mpich.org/projects/mpich/ticket/2282
|
|
*/
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
char *args[] = { "a", "b", "c", (char *) 0 };
|
|
int rank;
|
|
MPI_Comm parent, child;
|
|
|
|
MPI_Init(&argc, &argv);
|
|
MPI_Comm_get_parent(&parent);
|
|
|
|
if (parent == MPI_COMM_NULL) {
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
|
|
MPI_Comm_spawn("./spawn_rootargs", args, /*MPI_ARGV_NULL, */
|
|
5, MPI_INFO_NULL, 0, MPI_COMM_SELF, &child, MPI_ERRCODES_IGNORE);
|
|
MPI_Barrier(child);
|
|
MPI_Comm_disconnect(&child);
|
|
if (!rank)
|
|
printf(" No Errors\n");
|
|
} else {
|
|
MPI_Barrier(parent);
|
|
MPI_Comm_disconnect(&parent);
|
|
}
|
|
|
|
MPI_Finalize();
|
|
|
|
return 0;
|
|
}
|