root/ompi/mpi/fortran/base/test_constants_f.c

DEFINITIONS

1. OMPI_GENERATE_F77_BINDINGS

   1 /*
   2  * Copyright (c) 2004-2006 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-2012 Cisco Systems, Inc.  All rights reserved.
  13  * $COPYRIGHT$
  14  *
  15  * Additional copyrights may follow
  16  *
  17  * $HEADER$
  18  */
  19 
  20 #include "ompi_config.h"
  21 
  22 #include "ompi/mpi/fortran/mpif-h/bindings.h"
  23 #include "ompi/mpi/fortran/base/constants.h"
  24 
  25 /* This is an internal test function for Open MPI; it does not have a
  26    profiled equivalent.  We must prototype it specifically here,
  27    because the PN2 macro assumes we need to prefix an additinal "o"
  28    for the native prototype -- which doesn't work for a native
  29    "ompi_*"-named function. */
  30 
  31 OMPI_DECLSPEC void ompi_test_fortran_constants_f(char *bottom, char *in_place,
  32                                                  char *argv, char *argvs,
  33                                                  char *status, char *statuses,
  34                                                  MPI_Fint *flag);
  35 
  36 PN2(void, OMPI_Test_fortran_constants, ompi_test_fortran_constants, OMPI_TEST_FORTRAN_CONSTANTS, (char *bottom, char *in_place, char *argv, char *argvs, char *status, char *statuses, MPI_Fint *flag));
  37 
  38 #if OPAL_HAVE_WEAK_SYMBOLS
  39 #pragma weak OMPI_TEST_FORTRAN_CONSTANTS   = ompi_test_fortran_constants_f
  40 #pragma weak ompi_test_fortran_constants   = ompi_test_fortran_constants_f
  41 #pragma weak ompi_test_fortran_constants_  = ompi_test_fortran_constants_f
  42 #pragma weak ompi_test_fortran_constants__ = ompi_test_fortran_constants_f
  43 #endif
  44 
  45 #if ! OPAL_HAVE_WEAK_SYMBOLS
  46 OMPI_GENERATE_F77_BINDINGS (OMPI_TEST_FORTRAN_CONSTANTS,
  47                             ompi_test_fortran_constants,
  48                             ompi_test_fortran_constants_,
  49                             ompi_test_fortran_constants__,
  50                             ompi_test_fortran_constants_f,
  51                             (char *bottom, char *in_place, char *argv, char *argvs, char *status, char *statuses, MPI_Fint *flag),
  52                             (bottom, in_place, argv, argvs, status, statuses, flag) )
  53 #endif
  54 
  55 void ompi_test_fortran_constants_f(char *bottom, char *in_place,
  56                                    char *argv, char *argvs,
  57                                    char *status, char *statuses,
  58                                    MPI_Fint *flag)
  59 {
  60     *flag = 1;
  61     if (!OMPI_IS_FORTRAN_BOTTOM(bottom)) {
  62         fprintf(stderr, "WARNING: Fortran MPI_BOTTOM not recognized properly\n");
  63         *flag = 0;
  64     }
  65     if (!OMPI_IS_FORTRAN_IN_PLACE(in_place)) {
  66         fprintf(stderr, "WARNING: Fortran MPI_IN_PLACE not recognized properly\n");
  67         *flag = 0;
  68     }
  69     if (!OMPI_IS_FORTRAN_ARGV_NULL(argv)) {
  70         fprintf(stderr, "WARNING: Fortran MPI_ARGV_NULL not recognized properly\n");
  71         *flag = 0;
  72     }
  73     if (!OMPI_IS_FORTRAN_ARGVS_NULL(argvs)) {
  74         fprintf(stderr, "WARNING: Fortran MPI_ARGVS_NULL not recognized properly\n");
  75         *flag = 0;
  76     }
  77     if (!OMPI_IS_FORTRAN_STATUS_IGNORE(status)) {
  78         fprintf(stderr, "WARNING: Fortran MPI_STATUS_IGNORE not recognized properly\n");
  79         *flag = 0;
  80     }
  81     if (!OMPI_IS_FORTRAN_STATUSES_IGNORE(statuses)) {
  82         fprintf(stderr, "WARNING: Fortran MPI_STATUSES not recognized properly\n");
  83         *flag = 0;
  84     }
  85 }