From fb8bfccb83df30559b1719d0295bf357e6e45042 Mon Sep 17 00:00:00 2001 From: Gilles Gouaillardet Date: Mon, 14 Sep 2020 09:19:47 +0900 Subject: [PATCH] mpif-h: fix a typo in MPI_Status_f2f08() Signed-off-by: Gilles Gouaillardet --- ompi/mpi/fortran/mpif-h/status_f2f08_f.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ompi/mpi/fortran/mpif-h/status_f2f08_f.c b/ompi/mpi/fortran/mpif-h/status_f2f08_f.c index 02b6db7a34f..dee468f994e 100644 --- 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