From 7f5fba917398dc3937b6a74cac713b5a2ce2e5a0 Mon Sep 17 00:00:00 2001 From: Howard Pritchard Date: Mon, 7 Apr 2025 10:28:22 -0600 Subject: [PATCH] C interface templates - return MPI_Fint for c2f A bug was found with the c templates for the handle conversion routines comm_c2f and win_c2f while working on https://github.com/open-mpi/ompi/pull/13168 Signed-off-by: Howard Pritchard --- ompi/mpi/c/comm_c2f.c.in | 2 +- ompi/mpi/c/win_c2f.c.in | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ompi/mpi/c/comm_c2f.c.in b/ompi/mpi/c/comm_c2f.c.in index 4458e0f563b..2a70b75995f 100644 --- a/ompi/mpi/c/comm_c2f.c.in +++ b/ompi/mpi/c/comm_c2f.c.in @@ -30,7 +30,7 @@ #include "ompi/mpi/fortran/base/fint_2_int.h" #include "ompi/memchecker.h" -PROTOTYPE ERROR_CLASS comm_c2f(COMM comm) +PROTOTYPE FINT comm_c2f(COMM comm) { MEMCHECKER( memchecker_comm(comm); diff --git a/ompi/mpi/c/win_c2f.c.in b/ompi/mpi/c/win_c2f.c.in index cb1e0fb0562..44e0f138907 100644 --- a/ompi/mpi/c/win_c2f.c.in +++ b/ompi/mpi/c/win_c2f.c.in @@ -31,7 +31,7 @@ #include "ompi/errhandler/errhandler.h" #include "ompi/mpi/fortran/base/fint_2_int.h" -PROTOTYPE ERROR_CLASS win_c2f(WIN win) +PROTOTYPE FINT win_c2f(WIN win) { if ( MPI_PARAM_CHECK) { OMPI_ERR_INIT_FINALIZE(FUNC_NAME);