From 2052087cfa428bb1dcb3aa576728ebe91df47c63 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ole=20Sch=C3=BCtt?= Date: Thu, 17 Feb 2022 11:27:54 +0100 Subject: [PATCH] grid: Avoid name collision of C-bound procedures --- src/grid/grid_api.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/grid/grid_api.F b/src/grid/grid_api.F index 8f83ee98e7..2d868ba8c7 100644 --- a/src/grid/grid_api.F +++ b/src/grid/grid_api.F @@ -1230,7 +1230,7 @@ CONTAINS !> \param mpi_comm ... !> \author Ole Schuett ! ************************************************************************************************** - SUBROUTINE mpi_sum_func(number, mpi_comm) BIND(C) + SUBROUTINE mpi_sum_func(number, mpi_comm) BIND(C, name="grid_api_mpi_sum_func") INTEGER(KIND=C_LONG), INTENT(INOUT) :: number INTEGER(KIND=C_INT), INTENT(IN), VALUE :: mpi_comm @@ -1243,7 +1243,7 @@ CONTAINS !> \param output_unit ... !> \author Ole Schuett ! ************************************************************************************************** - SUBROUTINE print_func(message, output_unit) BIND(C) + SUBROUTINE print_func(message, output_unit) BIND(C, name="grid_api_print_func") CHARACTER(LEN=1, KIND=C_CHAR), INTENT(IN) :: message(*) INTEGER(KIND=C_INT), INTENT(IN), VALUE :: output_unit