From: degomme <degomme@localhost.localdomain>
Date: Wed, 29 Oct 2014 10:17:08 +0000 (+0100)
Subject: somehow we forgot MPI_REAL datatype C-fortran compatibility
X-Git-Tag: v3_12~732^2~284
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/7e9432ec2c941bbad50f3e8d829b9793fc411452?hp=b781a81f89c29247fea9b556c4aff2bb33c1ce7a

somehow we forgot MPI_REAL datatype C-fortran compatibility
---

diff --git a/include/smpi/smpi.h b/include/smpi/smpi.h
index 4b96b5279f..0787fadd3c 100644
--- a/include/smpi/smpi.h
+++ b/include/smpi/smpi.h
@@ -221,6 +221,7 @@ XBT_PUBLIC_DATA(MPI_Datatype) MPI_2FLOAT;
 XBT_PUBLIC_DATA(MPI_Datatype) MPI_2DOUBLE;
 XBT_PUBLIC_DATA(MPI_Datatype) MPI_2LONG;//only for compatibility with Fortran
 
+XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL;
 XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL4;
 XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL8;
 XBT_PUBLIC_DATA(MPI_Datatype) MPI_REAL16;
diff --git a/src/smpi/smpi_mpi_dt.c b/src/smpi/smpi_mpi_dt.c
index 047cf91d8d..350ee0f194 100644
--- a/src/smpi/smpi_mpi_dt.c
+++ b/src/smpi/smpi_mpi_dt.c
@@ -132,6 +132,7 @@ CREATE_MPI_DATATYPE(MPI_2FLOAT, float_float);
 CREATE_MPI_DATATYPE(MPI_2DOUBLE, double_double);
 CREATE_MPI_DATATYPE(MPI_2LONG, long_long);
 
+CREATE_MPI_DATATYPE(MPI_REAL, float);
 CREATE_MPI_DATATYPE(MPI_REAL4, float);
 CREATE_MPI_DATATYPE(MPI_REAL8, float);
 CREATE_MPI_DATATYPE(MPI_REAL16, double);