Merge pull request #12174 from jtronge/fortran-profiling-fix

Add missing Fortran subroutines to profiling lib
open-mpi · Dec 21, 2023 · d261a4a · d261a4a
2 parents f54df22 + 104e094
commit d261a4a
Show file tree

Hide file tree

Showing 8 changed files with 16 additions and 0 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
@@ -9,6 +9,8 @@
 !                         reserved.
 ! $COPYRIGHT$
 
+#include "mpi-f08-rename.h"
+
 subroutine MPI_Comm_create_from_group_f08(group, stringtag, info, errhandler, newcomm, ierror)
    use :: mpi_f08_types, only : MPI_Comm, MPI_Group, MPI_Errhandler, MPI_Info
    use :: ompi_mpifh_bindings, only : ompi_comm_create_from_group_f

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
@@ -9,6 +9,8 @@
 !                         reserved.
 ! $COPYRIGHT$
 
+#include "mpi-f08-rename.h"
+
 subroutine MPI_Intercomm_create_from_groups_f08(local_group, local_leader, remote_group, &
                                                 remote_leader, stringtag, info, errhandler, &
                                                 newintercomm, ierror)

diff --git a/ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/parrived_f08.F90
@@ -8,6 +8,7 @@
 ! Copyright (c) 2020      Sandia National Laboratories. All rights reserved.
 ! $COPYRIGHT$
 
+#include "mpi-f08-rename.h"
 #include "ompi/mpi/fortran/configure-fortran-output.h"
 
 subroutine MPI_Parrived_f08(request,partition,flag,ierror)

diff --git a/ompi/mpi/fortran/use-mpi-f08/pready_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pready_f08.F90
@@ -8,6 +8,7 @@
 ! Copyright (c) 2020      Sandia National Laboratories. All rights reserved.
 ! $COPYRIGHT$
 
+#include "mpi-f08-rename.h"
 #include "ompi/mpi/fortran/configure-fortran-output.h"
 
 subroutine MPI_Pready_f08(partition,request,ierror)

diff --git a/ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pready_list_f08.F90
@@ -8,6 +8,7 @@
 ! Copyright (c) 2020      Sandia National Laboratories. All rights reserved.
 ! $COPYRIGHT$
 
+#include "mpi-f08-rename.h"
 #include "ompi/mpi/fortran/configure-fortran-output.h"
 
 subroutine MPI_Pready_list_f08(length,partitions,request,ierror)

diff --git a/ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pready_range_f08.F90
@@ -8,6 +8,7 @@
 ! Copyright (c) 2020      Sandia National Laboratories. All rights reserved.
 ! $COPYRIGHT$
 
+#include "mpi-f08-rename.h"
 #include "ompi/mpi/fortran/configure-fortran-output.h"
 
 subroutine MPI_Pready_range_f08(partition_low,partition_high,request,ierror)

diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am b/ompi/mpi/fortran/use-mpi-f08/profile/Makefile.am
@@ -97,6 +97,7 @@ pmpi_api_files = \
         pcomm_call_errhandler_f08.F90 \
         pcomm_compare_f08.F90 \
         pcomm_connect_f08.F90 \
+        pcomm_create_from_group_f08.F90 \
         pcomm_create_errhandler_f08.F90 \
         pcomm_create_f08.F90 \
         pcomm_create_group_f08.F90 \
@@ -271,6 +272,7 @@ pmpi_api_files = \
         pinitialized_f08.F90 \
         pinit_thread_f08.F90 \
         pintercomm_create_f08.F90 \
+        pintercomm_create_from_groups_f08.F90 \
         pintercomm_merge_f08.F90 \
         piprobe_f08.F90 \
         pirecv_f08.F90 \
@@ -307,8 +309,13 @@ pmpi_api_files = \
         ppack_external_size_f08.F90 \
         ppack_f08.F90 \
         ppack_size_f08.F90 \
+        pparrived_f08.F90 \
         ppcontrol_f08.F90 \
+        ppready_f08.F90 \
+        ppready_list_f08.F90 \
+        ppready_range_f08.F90 \
         pprobe_f08.F90 \
+        ppsend_init_f08.F90 \
         ppublish_name_f08.F90 \
         pput_f08.F90 \
         pquery_thread_f08.F90 \

diff --git a/ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/psend_init_f08.F90
@@ -11,6 +11,7 @@
 !                         reserved.
 ! $COPYRIGHT$
 
+#include "mpi-f08-rename.h"
 #include "ompi/mpi/fortran/configure-fortran-output.h"
 
 subroutine MPI_Psend_init_f08(buf,partitions,count,datatype,dest,tag,comm,info,request,ierror)