sessions: fix a problem with fortran bindings

Signed-off-by: Howard Pritchard <howardp@lanl.gov>
hppritcha · Sep 18, 2019 · b8330ac · b8330ac
1 parent 5f6e591
commit b8330ac
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_create_from_group_f08.F90
@@ -21,7 +21,7 @@ subroutine MPI_Comm_create_from_group_f08(group, stringtag, info, errhandler, ne
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror
 
-   call ompi_create_comm_from_group_f(group%MPI_VAL, stringtag, info%MPI_VAL, errhandler%MPI_VAL, &
+   call ompi_comm_create_from_group_f(group%MPI_VAL, stringtag, info%MPI_VAL, errhandler%MPI_VAL, &
                                       newcomm%MPI_VAL, c_ierror, len(stringtag))
    if (present(ierror)) ierror = c_ierror
 

diff --git a/ompi/mpi/fortran/use-mpi-f08/intercomm_create_from_groups_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/intercomm_create_from_groups_f08.F90
@@ -24,7 +24,7 @@ subroutine MPI_Intercomm_create_from_groups_f08(local_group, local_leader, remot
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror
 
-   call ompi_create_intercomm_from_groups_f(local_group%MPI_VAL, local_leader, &
+   call ompi_intercomm_create_from_groups_f(local_group%MPI_VAL, local_leader, &
                                             remote_group%MPI_VAL,  &
                                             remote_leader, stringtag, info%MPI_VAL, &
                                             errhandler%MPI_VAL, &

diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_from_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_from_group_f08.F90
@@ -21,7 +21,7 @@ subroutine PMPI_Comm_create_from_group_f08(group, stringtag, info, errhandler, n
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror
 
-   call ompi_create_comm_from_group_f(group%MPI_VAL, stringtag, info%MPI_VAL, errhandler%MPI_VAL, &
+   call ompi_comm_create_from_group_f(group%MPI_VAL, stringtag, info%MPI_VAL, errhandler%MPI_VAL, &
                                       newcomm%MPI_VAL, c_ierror, len(stringtag))
    if (present(ierror)) ierror = c_ierror
 

diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pintercomm_create_from_groups_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pintercomm_create_from_groups_f08.F90
@@ -24,7 +24,7 @@ subroutine PMPI_Intercomm_create_from_groups_f08(local_group, local_leader, remo
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror
 
-   call ompi_create_intercomm_from_groups_f(local_group%MPI_VAL, local_leader, &
+   call ompi_intercomm_create_from_groups_f(local_group%MPI_VAL, local_leader, &
                                             remote_group%MPI_VAL,  &
                                             remote_leader, stringtag, info%MPI_VAL, &
                                             errhandler%MPI_VAL, &