Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Typo.
[simgrid.git] / src / smpi / smpi_f77.c
index aa9af8c..95c40d7 100644 (file)
@@ -28,7 +28,7 @@ union u_smpi_common {
     integer _MPI_STATUS_IGNORE;
     integer _MPI_STATUSES_IGNORE;
   } *f77;                       /* with f2c, remains NULL with gfortran */
     integer _MPI_STATUS_IGNORE;
     integer _MPI_STATUSES_IGNORE;
   } *f77;                       /* with f2c, remains NULL with gfortran */
-  struct s_smpi_common f90;     /* with gftortran */
+  struct s_smpi_common f90;     /* with gfortran */
 } smpi_ = { NULL };
 
 /* Convert between Fortran and C */
 } smpi_ = { NULL };
 
 /* Convert between Fortran and C */