From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Tue, 25 Sep 2012 12:56:36 +0000 (+0200)
Subject: MPI_Address didn't return MPI_SUCCESS on success
X-Git-Tag: v3_8~146^2~24
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/c126fdf651057c849b4614da3fdd76a64d9c0036

MPI_Address didn't return MPI_SUCCESS on success
---

diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c
index 16fccc06d1..d730222bf8 100644
--- a/src/smpi/smpi_pmpi.c
+++ b/src/smpi/smpi_pmpi.c
@@ -125,6 +125,7 @@ int PMPI_Address(void *location, MPI_Aint * address)
     retval = MPI_ERR_ARG;
   } else {
     *address = (MPI_Aint) location;
+    retval = MPI_SUCCESS;
   }
   smpi_bench_begin();
   return retval;