2
* Copyright (c) 2004-2005 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
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.
14
* Additional copyrights may follow
19
#include "ompi_config.h"
21
#include "ompi/mpi/c/bindings.h"
22
#include "ompi/errhandler/errcode.h"
24
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
25
#pragma weak MPI_Error_class = PMPI_Error_class
28
#if OMPI_PROFILING_DEFINES
29
#include "ompi/mpi/c/profile/defines.h"
32
static const char FUNC_NAME[] = "MPI_Error_class";
35
int MPI_Error_class(int errorcode, int *errorclass)
37
if ( MPI_PARAM_CHECK ) {
38
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
40
if ( ompi_mpi_errcode_is_invalid(errorcode)) {
41
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
47
*errorclass = ompi_mpi_errcode_get_class(errorcode);