X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/18a9a43996a548884a3042ed99e60f3218a3259a..9ec9be3a71deb3df0b34b15eb3af7720842ac17b:/src/smpi/bindings/smpi_f77_type.cpp

diff --git a/src/smpi/bindings/smpi_f77_type.cpp b/src/smpi/bindings/smpi_f77_type.cpp
index bb6b3ca25a..6848328e3e 100644
--- a/src/smpi/bindings/smpi_f77_type.cpp
+++ b/src/smpi/bindings/smpi_f77_type.cpp
@@ -57,9 +57,9 @@ void mpi_type_get_name_ (int*  datatype, char * name, int* len, int* ierr){
 }
 
 void mpi_type_get_attr_ (int* type, int* type_keyval, int *attribute_val, int* flag, int* ierr){
- size_t value = 0;
+ int* value = nullptr;
  *ierr = MPI_Type_get_attr ( simgrid::smpi::Datatype::f2c(*type), *type_keyval, &value, flag);
- *attribute_val = *(int*) value;
+ *attribute_val = *value;
 }
 
 void mpi_type_set_attr_ (int* type, int* type_keyval, void *attribute_val, int* ierr){