[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2-441-gfd6627a
Service Account
noreply at mpich.org
Mon Sep 12 20:28:33 CDT 2016
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "MPICH primary repository".
The branch, master has been updated
via fd6627a1bf6cdbe629defe77db231558948c48dd (commit)
from a86e1cad9535de62d20e8363213e828ae5a43866 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
http://git.mpich.org/mpich.git/commitdiff/fd6627a1bf6cdbe629defe77db231558948c48dd
commit fd6627a1bf6cdbe629defe77db231558948c48dd
Author: Ken Raffenetti <raffenet at mcs.anl.gov>
Date: Wed Sep 7 12:35:16 2016 -0500
binding/f08: Fix name of struct
The MPI standard defines MPI_F08_status - no capital S.
Reported-by: James Custer <jcuster at sgi.com>
Signed-off-by: Rob Latham <robl at mcs.anl.gov>
diff --git a/src/include/mpi.h.in b/src/include/mpi.h.in
index d95e4a9..9972de3 100644
--- a/src/include/mpi.h.in
+++ b/src/include/mpi.h.in
@@ -748,16 +748,16 @@ typedef struct {
MPI_Fint MPI_SOURCE;
MPI_Fint MPI_TAG;
MPI_Fint MPI_ERROR;
-} MPI_F08_Status;
+} MPI_F08_status;
-extern MPI_F08_Status MPIR_F08_MPI_STATUS_IGNORE_OBJ;
-extern MPI_F08_Status MPIR_F08_MPI_STATUSES_IGNORE_OBJ[1];
+extern MPI_F08_status MPIR_F08_MPI_STATUS_IGNORE_OBJ;
+extern MPI_F08_status MPIR_F08_MPI_STATUSES_IGNORE_OBJ[1];
extern int MPIR_F08_MPI_IN_PLACE;
extern int MPIR_F08_MPI_BOTTOM;
/* Pointers to above objects */
-extern MPI_F08_Status *MPI_F08_STATUS_IGNORE;
-extern MPI_F08_Status *MPI_F08_STATUSES_IGNORE;
+extern MPI_F08_status *MPI_F08_STATUS_IGNORE;
+extern MPI_F08_status *MPI_F08_STATUSES_IGNORE;
/* For supported thread levels */
#define MPI_THREAD_SINGLE 0
diff --git a/src/mpi/init/initthread.c b/src/mpi/init/initthread.c
index 9e20e9b..e63f959 100644
--- a/src/mpi/init/initthread.c
+++ b/src/mpi/init/initthread.c
@@ -284,14 +284,14 @@ int *MPIR_C_MPI_UNWEIGHTED;
int *MPIR_C_MPI_WEIGHTS_EMPTY;
int *MPIR_C_MPI_ERRCODES_IGNORE;
-MPI_F08_Status MPIR_F08_MPI_STATUS_IGNORE_OBJ;
-MPI_F08_Status MPIR_F08_MPI_STATUSES_IGNORE_OBJ[1];
+MPI_F08_status MPIR_F08_MPI_STATUS_IGNORE_OBJ;
+MPI_F08_status MPIR_F08_MPI_STATUSES_IGNORE_OBJ[1];
int MPIR_F08_MPI_IN_PLACE;
int MPIR_F08_MPI_BOTTOM;
/* Althought the two STATUS pointers are required but the MPI3.0, they are not used in MPICH F08 binding */
-MPI_F08_Status *MPI_F08_STATUS_IGNORE = &MPIR_F08_MPI_STATUS_IGNORE_OBJ;
-MPI_F08_Status *MPI_F08_STATUSES_IGNORE = &MPIR_F08_MPI_STATUSES_IGNORE_OBJ[0];
+MPI_F08_status *MPI_F08_STATUS_IGNORE = &MPIR_F08_MPI_STATUS_IGNORE_OBJ;
+MPI_F08_status *MPI_F08_STATUSES_IGNORE = &MPIR_F08_MPI_STATUSES_IGNORE_OBJ[0];
#endif
#if defined (MPL_USE_DBG_LOGGING)
-----------------------------------------------------------------------
Summary of changes:
src/include/mpi.h.in | 10 +++++-----
src/mpi/init/initthread.c | 8 ++++----
2 files changed, 9 insertions(+), 9 deletions(-)
hooks/post-receive
--
MPICH primary repository
More information about the commits
mailing list