bd29ab0ae9
Deprecate the current OMPI-specific MPI_Info key definitions for MPI_Comm_spawn and replace them with their PMIx equivalents. Issue a deprecation/conversion warning as this is done. Also issue deprecation warnings for options such as "ompi_non_mpi" that are no longer used. Handle both cases where the user might pass either the PMIx attribute name itself (e.g., "PMIX_MAPBY") or the string value of the attribute (e.g., PMIX_MAPBY, which translates to "pmix.mapby"). This can only be done for PMIx v4 and above, so protect that code. Silence a couple of Coverity warnings and add a test along the way. Signed-off-by: Ralph Castain <rhc@pmix.org>
26 строки
672 B
C
26 строки
672 B
C
#include <stdio.h>
|
|
#include "mpi.h"
|
|
|
|
|
|
int main( int argc, char *argv[] )
|
|
{
|
|
MPI_Status status;
|
|
MPI_Comm comm,scomm;
|
|
int rank, size, color, errs=0;
|
|
MPI_Init( 0, 0 );
|
|
MPI_Comm_rank( MPI_COMM_WORLD, &rank );
|
|
color = rank % 2;
|
|
printf("%d Calling split\n", rank);
|
|
MPI_Comm_split( MPI_COMM_WORLD, color, rank, &scomm );
|
|
printf("%d Calling Intercomm_create\n", rank);
|
|
MPI_Intercomm_create( scomm, 0, MPI_COMM_WORLD, 1-color, 1, &comm);
|
|
printf("%d Completet\n", rank);
|
|
MPI_Comm_rank( comm, &rank );
|
|
MPI_Comm_remote_size( comm, &size );
|
|
MPI_Comm_free(&scomm);
|
|
MPI_Comm_free(&comm);
|
|
MPI_Finalize();
|
|
return errs;
|
|
}
|
|
|