Merge pull request #8043 from ggouaillardet/topic/status_f2f08

mpif-h: fix a typo in MPI_Status_f2f08()
open-mpi · Sep 14, 2020 · d5791b2 · d5791b2
2 parents 1b0dfcd + fb8bfcc
commit d5791b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ompi/mpi/fortran/mpif-h/status_f2f08_f.c b/ompi/mpi/fortran/mpif-h/status_f2f08_f.c
@@ -48,7 +48,7 @@ OMPI_GENERATE_F77_BINDINGS(MPI_STATUS_F2F08,
                            mpi_status_f2f08_,
                            mpi_status_f2f08__,
                            ompi_status_f2f08_f,
-                           (const MPI_Fint *f_stttttatus, MPI_F08_status *f08_status *f08_status, MPI_Fint *ierr),
+                           (const MPI_Fint *f_status, MPI_F08_status *f08_status, MPI_Fint *ierr),
                            (f_status, f08_status, ierr) )
 #else
 #define ompi_status_f2f08_f pompi_status_f2f08_f