Fix MPI_COMM_SPLIT_TYPE with MPI_UNDEFINED
Thanks to Lisandro Dalcin for identifying the problem. Fixes trac:4876 Submitted by George Boscila, reviewed by Jeff Squyres. cmr=v1.8.3:reviewer=ompi-rm1.8 This commit was SVN r32615. The following Trac tickets were found above: Ticket 4876 --> https://svn.open-mpi.org/trac/ompi/ticket/4876
Этот коммит содержится в:
родитель
7e3784e0b7
Коммит
d85527701a
@ -75,7 +75,12 @@ int MPI_Comm_split_type(MPI_Comm comm, int split_type, int key,
|
||||
|
||||
OPAL_CR_ENTER_LIBRARY();
|
||||
|
||||
rc = ompi_comm_split_type ( (ompi_communicator_t*)comm, split_type, key, info,
|
||||
(ompi_communicator_t**)newcomm);
|
||||
if( (MPI_COMM_SELF == comm) && (MPI_UNDEFINED == split_type) ) {
|
||||
*newcomm = MPI_COMM_NULL;
|
||||
rc = MPI_SUCCESS;
|
||||
} else {
|
||||
rc = ompi_comm_split_type( (ompi_communicator_t*)comm, split_type, key, info,
|
||||
(ompi_communicator_t**)newcomm);
|
||||
}
|
||||
OMPI_ERRHANDLER_RETURN ( rc, comm, rc, FUNC_NAME);
|
||||
}
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user