From 6773415d4c9f9a1b9b983a1b05009e2405ef8379 Mon Sep 17 00:00:00 2001 From: Hui Zhou Date: Wed, 1 Dec 2021 10:12:08 -0600 Subject: [PATCH] f08: avoid using MPIR_Assert Use assert to avoid including the whole mpich internal header stack. --- src/binding/fortran/use_mpi_f08/wrappers_c/cdesc.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/binding/fortran/use_mpi_f08/wrappers_c/cdesc.c b/src/binding/fortran/use_mpi_f08/wrappers_c/cdesc.c index 70226dc939a..9d8d9120297 100644 --- a/src/binding/fortran/use_mpi_f08/wrappers_c/cdesc.c +++ b/src/binding/fortran/use_mpi_f08/wrappers_c/cdesc.c @@ -5,6 +5,7 @@ #include "cdesc.h" #include +#include /* Fortran 2008 specifies a maximum rank of 15 */ #define MAX_RANK (15) @@ -24,12 +25,12 @@ int cdesc_create_datatype(CFI_cdesc_t * cdesc, MPI_Aint oldcount, MPI_Datatype o #ifdef HAVE_ERROR_CHECKING { int size; - MPIR_Assert(cdesc->rank <= MAX_RANK); + assert(cdesc->rank <= MAX_RANK); PMPI_Type_size(oldtype, &size); /* When cdesc->elem_len != size, things suddenly become complicated. Generally, it is hard to create * a composite datatype based on two datatypes. Currently we don't support it and doubt it is useful. */ - MPIR_Assert(cdesc->elem_len == size); + assert(cdesc->elem_len == size); } #endif