From aac803a3cbeee6ac69676370990a9fbd9dbbc4b8 Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Fri, 19 Mar 2004 19:00:28 +0000 Subject: [PATCH] Return MPI_GROUP_NULL, not NULL. This commit was SVN r946. --- src/mpi/c/group_f2c.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/mpi/c/group_f2c.c b/src/mpi/c/group_f2c.c index b7115c611e..c0249ad764 100644 --- a/src/mpi/c/group_f2c.c +++ b/src/mpi/c/group_f2c.c @@ -11,6 +11,7 @@ #pragma weak MPI_Group_f2c = PMPI_Group_f2c #endif + MPI_Group MPI_Group_f2c(MPI_Fint group_f) { /* local variables */ @@ -22,10 +23,10 @@ MPI_Group MPI_Group_f2c(MPI_Fint group_f) /* error checks */ if (MPI_PARAM_CHECK) { if (0 > group_index) { - return NULL; + return MPI_GROUP_NULL; } if (group_index >= lam_group_f_to_c_table->size) { - return NULL; + return MPI_GROUP_NULL; } }