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 }