mpif-h: fix a typo in MPI_Status_f2f08()

Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
open-mpi · Sep 14, 2020 · fb8bfcc · fb8bfcc
1 parent 1b0dfcd
commit fb8bfcc
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