X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f055485dd028f6dc2dece9800fdda09e84c20ac8..f2df13795e01302813a6aef10825ec7e922ce530:/src/smpi/smpi_f77.c

diff --git a/src/smpi/smpi_f77.c b/src/smpi/smpi_f77.c
index fa9a80075d..95c40d7209 100644
--- a/src/smpi/smpi_f77.c
+++ b/src/smpi/smpi_f77.c
@@ -27,9 +27,9 @@ union u_smpi_common {
     integer _MPI_BOTTOM;
     integer _MPI_STATUS_IGNORE;
     integer _MPI_STATUSES_IGNORE;
-  } f90;                        /* with gftortran */
-  struct s_smpi_common *f77;    /* with f2c, remains NULL with gfortran */
-} smpi_;
+  } *f77;                       /* with f2c, remains NULL with gfortran */
+  struct s_smpi_common f90;     /* with gfortran */
+} smpi_ = { NULL };
 
 /* Convert between Fortran and C */
 #define F2C_ADDR(addr, val)                                             \