From e83e118ae704ef95faa57cc4da3a9b90b7819485 Mon Sep 17 00:00:00 2001 From: KAWASHIMA Takahiro Date: Tue, 18 Sep 2018 14:36:28 +0900 Subject: [PATCH] mpiext/pcollreq: fix more typos Signed-off-by: KAWASHIMA Takahiro (cherry picked from commit 4a0a2598f63b081045fdeb51256493ce2a8ec96a) --- ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c | 3 ++- ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90 | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c b/ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c index ccb7a04e9e..561d96a55e 100644 --- a/ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c +++ b/ompi/mpiext/pcollreq/mpif-h/neighbor_alltoall_init_f.c @@ -15,6 +15,7 @@ * reserved. * Copyright (c) 2015-2018 Research Organization for Information Science * and Technology (RIST). All rights reserved. + * Copyright (c) 2018 FUJITSU LIMITED. All rights reserved. * $COPYRIGHT$ * * Additional copyrights may follow @@ -58,7 +59,7 @@ OMPI_GENERATE_F77_BINDINGS (PMPIX_NEIGHBOR_ALLTOALL_INIT, #pragma weak MPIX_Neighbor_alltoall_init_f08 = ompix_neighbor_alltoall_init_f #else #if ! OMPI_BUILD_MPI_PROFILING -OMPI_GENERATE_F77_BINDINGS (MPIX_NEIGHBOR_ALLTOALL, +OMPI_GENERATE_F77_BINDINGS (MPIX_NEIGHBOR_ALLTOALL_INIT, mpix_neighbor_alltoall_init, mpix_neighbor_alltoall_init_, mpix_neighbor_alltoall_init__, diff --git a/ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90 b/ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90 index 716bfff290..107a9554dd 100644 --- a/ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90 +++ b/ompi/mpiext/pcollreq/use-mpi-f08/bcast_init_f08.F90 @@ -5,6 +5,7 @@ ! All rights reserved. ! Copyright (c) 2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. +! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -25,4 +26,4 @@ subroutine MPIX_Bcast_init_f08(buffer,count,datatype,root,comm,info,request,ierr call ompix_bcast_init_f(buffer,count,datatype%MPI_VAL,root,comm%MPI_VAL,info%MPI_VAL,request%MPI_VAL,c_ierror) if (present(ierror)) ierror = c_ierror - end subroutine MPIX_Bcast_init_f08 +end subroutine MPIX_Bcast_init_f08