1
1

Return MPI_GROUP_NULL, not NULL.

This commit was SVN r946.
Этот коммит содержится в:
Jeff Squyres 2004-03-19 19:00:28 +00:00
родитель c296eaacc7
Коммит aac803a3cb

Просмотреть файл

@ -11,6 +11,7 @@
#pragma weak MPI_Group_f2c = PMPI_Group_f2c #pragma weak MPI_Group_f2c = PMPI_Group_f2c
#endif #endif
MPI_Group MPI_Group_f2c(MPI_Fint group_f) MPI_Group MPI_Group_f2c(MPI_Fint group_f)
{ {
/* local variables */ /* local variables */
@ -22,10 +23,10 @@ MPI_Group MPI_Group_f2c(MPI_Fint group_f)
/* error checks */ /* error checks */
if (MPI_PARAM_CHECK) { if (MPI_PARAM_CHECK) {
if (0 > group_index) { if (0 > group_index) {
return NULL; return MPI_GROUP_NULL;
} }
if (group_index >= lam_group_f_to_c_table->size) { if (group_index >= lam_group_f_to_c_table->size) {
return NULL; return MPI_GROUP_NULL;
} }
} }