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 99d8c7717a16a9f8998f865046aafc7ac44dd4f0 (commit) from dc1447982acf76dc3b80c1bd98b7ea2d034944a8 (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/99d8c7717a16a9f8998f865046aafc7ac4... commit 99d8c7717a16a9f8998f865046aafc7ac44dd4f0 Author: Jeff Squyres <[email protected]> Date: Wed Oct 14 18:58:45 2015 -0700 MPI_Aint_* tests: use MPI_INTEGER datatype in Fortran MPI_INT corresponds to type(C_INT); MPI_INTEGER corresponds to INTEGER. Signed-off-by: Ken Raffenetti <[email protected]> diff --git a/test/mpi/f08/rma/aintf08.f90 b/test/mpi/f08/rma/aintf08.f90 index cef75eb..b4dce12 100644 --- a/test/mpi/f08/rma/aintf08.f90 +++ b/test/mpi/f08/rma/aintf08.f90 @@ -42,7 +42,7 @@ program main endif ! Exchange bases - call MPI_Type_size(MPI_INT, intsize, ierr); + call MPI_Type_size(MPI_INTEGER, intsize, ierr); call MPI_Allgather(MPI_IN_PLACE, 0, MPI_DATATYPE_NULL, bases, 1, MPI_AINT, MPI_COMM_WORLD, ierr) call MPI_Win_create_dynamic(MPI_INFO_NULL, MPI_COMM_WORLD, win, ierr) @@ -60,7 +60,7 @@ program main ! Get value and verify it call MPI_Win_fence(MPI_MODE_NOPRECEDE, win, ierr) - call MPI_Get(val, 1, MPI_INT, target_rank, offset, 1, MPI_INT, win, ierr) + call MPI_Get(val, 1, MPI_INTEGER, target_rank, offset, 1, MPI_INTEGER, win, ierr) call MPI_Win_fence(MPI_MODE_NOSUCCEED, win, ierr) if (val /= 1234) then diff --git a/test/mpi/f77/rma/aintf.f b/test/mpi/f77/rma/aintf.f index 87464ba..9df429b 100644 --- a/test/mpi/f77/rma/aintf.f +++ b/test/mpi/f77/rma/aintf.f @@ -46,7 +46,7 @@ endif ! Exchange bases - call MPI_Type_size(MPI_INT, intsize, ierr); + call MPI_Type_size(MPI_INTEGER, intsize, ierr); call MPI_Allgather(MPI_IN_PLACE, 0, MPI_DATATYPE_NULL, bases, & 1, MPI_AINT, MPI_COMM_WORLD, ierr) @@ -68,8 +68,8 @@ ! Get value and verify it call MPI_Win_fence(MPI_MODE_NOPRECEDE, win, ierr) - call MPI_Get(val, 1, MPI_INT, target_rank, - & offset, 1, MPI_INT, win, ierr) + call MPI_Get(val, 1, MPI_INTEGER, target_rank, + & offset, 1, MPI_INTEGER, win, ierr) call MPI_Win_fence(MPI_MODE_NOSUCCEED, win, ierr) if (val /= 1234) then ----------------------------------------------------------------------- Summary of changes: test/mpi/f08/rma/aintf08.f90 | 4 ++-- test/mpi/f77/rma/aintf.f | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) hooks/post-receive -- MPICH primary repository