From 34db0645812396e9091f038652a12dd4339d0d4a Mon Sep 17 00:00:00 2001 From: Anton Khirnov Date: Sat, 29 Jun 2019 09:52:46 +0200 Subject: Do not try to free built-in MPI types. --- src/maximal_slicing_axi_mg.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/maximal_slicing_axi_mg.c b/src/maximal_slicing_axi_mg.c index 23051df..5938314 100644 --- a/src/maximal_slicing_axi_mg.c +++ b/src/maximal_slicing_axi_mg.c @@ -1251,7 +1251,7 @@ static int guess_from_coarser(MSMGContext *ms, CoordPatch *cp, CoordPatch *cp_co } else { cp->u_guess_recvcounts[comp_coarse] = 0; cp->u_guess_recvdispl[comp_coarse] = 0; - cp->u_guess_recvtypes[comp_coarse] = MPI_BYTE; + MPI_Type_dup(MPI_BYTE, &cp->u_guess_recvtypes[comp_coarse]); } } if (comp_coarse == local_proc) { @@ -1266,7 +1266,7 @@ static int guess_from_coarser(MSMGContext *ms, CoordPatch *cp, CoordPatch *cp_co } else { cp->u_guess_sendcounts[comp_fine] = 0; cp->u_guess_senddispl[comp_fine] = 0; - cp->u_guess_sendtypes[comp_fine] = MPI_BYTE; + MPI_Type_dup(MPI_BYTE, &cp->u_guess_sendtypes[comp_fine]); } } } -- cgit v1.2.3