1 /*
2 * Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
3 * University Research and Technology
4 * Corporation. All rights reserved.
5 * Copyright (c) 2004-2005 The University of Tennessee and The University
6 * of Tennessee Research Foundation. All rights
7 * reserved.
8 * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
9 * University of Stuttgart. All rights reserved.
10 * Copyright (c) 2004-2005 The Regents of the University of California.
11 * All rights reserved.
12 * Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
13 * Copyright (c) 2015 Research Organization for Information Science
14 * and Technology (RIST). All rights reserved.
15 * $COPYRIGHT$
16 *
17 * Additional copyrights may follow
18 *
19 * $HEADER$
20 */
21 #include "ompi_config.h"
22 #include <stdio.h>
23
24 #include "ompi/mpi/c/bindings.h"
25 #include "ompi/runtime/params.h"
26 #include "ompi/communicator/communicator.h"
27 #include "ompi/errhandler/errhandler.h"
28 #include "ompi/group/group.h"
29
30 #if OMPI_BUILD_MPI_PROFILING
31 #if OPAL_HAVE_WEAK_SYMBOLS
32 #pragma weak MPI_Group_free = PMPI_Group_free
33 #endif
34 #define MPI_Group_free PMPI_Group_free
35 #endif
36
37 static const char FUNC_NAME[] = "MPI_Group_free";
38
39
40 int MPI_Group_free(MPI_Group *group)
41 {
42 int ret;
43
44 /* check to make sure we don't free GROUP_NULL. Note that we *do*
45 allow freeing GROUP_EMPTY after much debate in the OMPI core
46 group. The final thread about this, and the decision to
47 support freeing GROUP_EMPTY can be found here:
48
49 http://www.open-mpi.org/community/lists/devel/2007/12/2750.php
50
51 The short version: other MPI's allow it (LAM/MPI, CT6, MPICH2)
52 probably mainly because the Intel MPI test suite expects it to
53 happen and there's now several years worth of expected behavior
54 to allow this behavior. Rather than have to explain every time
55 why OMPI is the only one who completely adheres to the standard
56 / fails the intel tests, it seemed easier to just let this one
57 slide. It's not really that important, after all! */
58 if (MPI_PARAM_CHECK) {
59 OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
60
61 if ((NULL == group) ||
62 (MPI_GROUP_NULL == *group) || (NULL == *group) ) {
63 return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_GROUP,
64 FUNC_NAME);
65 }
66
67 }
68
69 OPAL_CR_ENTER_LIBRARY();
70
71 ret = ompi_group_free ( group);
72 OMPI_ERRHANDLER_CHECK(ret, MPI_COMM_WORLD, ret, FUNC_NAME);
73
74 OPAL_CR_EXIT_LIBRARY();
75 return MPI_SUCCESS;
76 }