This source file includes following definitions.
- OMPI_GENERATE_F77_BINDINGS
   1 
   2 
   3 
   4 
   5 
   6 
   7 
   8 
   9 
  10 
  11 
  12 
  13 
  14 
  15 
  16 
  17 
  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 
  26 
  27 
  28 
  29 
  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 }