From b7ca8d8e4b0dcab8e81509b753e1b2fa80832f49 Mon Sep 17 00:00:00 2001
From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Tue, 2 Jul 2013 18:10:36 +0200
Subject: [PATCH] get the rank and not the index for process creation

---
 src/smpi/smpi_pmpi.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c
index 1b362b556f..8765cf70f2 100644
--- a/src/smpi/smpi_pmpi.c
+++ b/src/smpi/smpi_pmpi.c
@@ -792,7 +792,7 @@ int PMPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm * newcomm)
     retval = MPI_ERR_GROUP;
   } else if (newcomm == NULL) {
     retval = MPI_ERR_ARG;
-  } else if(smpi_group_index(group,smpi_process_index())==MPI_UNDEFINED){
+  } else if(smpi_group_rank(group,smpi_process_index())==MPI_UNDEFINED){
     *newcomm= MPI_COMM_NULL;
     retval = MPI_SUCCESS;
   }else{
-- 
2.20.1