-/* Copyright (c) 2010-2021. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2010-2023. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
void mpi_group_free_(int* group, int* ierr)
{
MPI_Group tmp = simgrid::smpi::Group::f2c(*group);
- if(tmp != MPI_COMM_WORLD->group() && tmp != MPI_GROUP_EMPTY){
- simgrid::smpi::Group::unref(tmp);
- }
- *ierr = MPI_SUCCESS;
+ *ierr = MPI_Group_free(&tmp);
}
void mpi_group_size_(int* group, int* size, int* ierr)