"Fossies" - the Fresh Open Source Software Archive

Member "openmpi-4.1.2/ompi/contrib/libompitrace/add_error_class.c" (24 Nov 2021, 1245 Bytes) of package /linux/misc/openmpi-4.1.2.tar.bz2:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "add_error_class.c" see the Fossies "Dox" file reference documentation.

    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-2006 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      University of Houston. All rights reserved.
   13  * Copyright (c) 2009      Cisco Systems, Inc.  All rights reserved.
   14  * $COPYRIGHT$
   15  *
   16  * Additional copyrights may follow
   17  *
   18  * $HEADER$
   19  */
   20 #include "ompi_config.h"
   21 
   22 #include <stdio.h>
   23 
   24 #include "opal_stdint.h"
   25 #include "ompi/mpi/c/bindings.h"
   26 
   27 int MPI_Add_error_class(int *errorclass)
   28 {
   29     int rank;
   30 
   31     PMPI_Comm_rank(MPI_COMM_WORLD, &rank);
   32 
   33     fprintf(stderr, "MPI_ADD_ERROR_CLASS[%d]: errorclass %0" PRIxPTR "\n", rank, (uintptr_t)errorclass);
   34     fflush(stderr);
   35 
   36     return PMPI_Add_error_class(errorclass);
   37 }
   38