From e57c93fa6e09663887453fd50ce15b5df11945a9 Mon Sep 17 00:00:00 2001 From: Hui Zhou Date: Wed, 1 Dec 2021 08:36:20 -0600 Subject: [PATCH] to-be-squashed: make MPIR_F08_MPI_IN_PLACE etc visible Apparently, the C binding linkage in fortran module is when linking user programs. --- src/binding/fortran/use_mpi_f08/wrappers_c/utils.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/binding/fortran/use_mpi_f08/wrappers_c/utils.c b/src/binding/fortran/use_mpi_f08/wrappers_c/utils.c index 454b6a8d703..706486792b2 100644 --- a/src/binding/fortran/use_mpi_f08/wrappers_c/utils.c +++ b/src/binding/fortran/use_mpi_f08/wrappers_c/utils.c @@ -6,14 +6,14 @@ #include "cdesc.h" #include -int MPIR_F08_MPI_IN_PLACE; -int MPIR_F08_MPI_BOTTOM; +int MPIR_F08_MPI_IN_PLACE MPICH_API_PUBLIC; +int MPIR_F08_MPI_BOTTOM MPICH_API_PUBLIC; /* MPI_F08_STATUS_IGNORE and MPI_F08_STATUSES_IGNORE are required by MPI-3.0. * the obj variables are linked in mpi_f08_link_constants module via bind(c). */ -MPI_F08_status MPIR_F08_MPI_STATUS_IGNORE_OBJ; -MPI_F08_status MPIR_F08_MPI_STATUSES_IGNORE_OBJ[1]; +MPI_F08_status MPIR_F08_MPI_STATUS_IGNORE_OBJ MPICH_API_PUBLIC; +MPI_F08_status MPIR_F08_MPI_STATUSES_IGNORE_OBJ[1] MPICH_API_PUBLIC; MPI_F08_status *MPI_F08_STATUS_IGNORE = &MPIR_F08_MPI_STATUS_IGNORE_OBJ; MPI_F08_status *MPI_F08_STATUSES_IGNORE = &MPIR_F08_MPI_STATUSES_IGNORE_OBJ[0];