1
1

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
Этот коммит содержится в:
Jeff Squyres 2014-08-27 12:17:33 +00:00
родитель 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);
}