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 }