Thanks Jeff. The patch looks good. We are in a freeze now leading up to release, so this probably won't make 3.2. Either way, it will land in master soon. Ken On 10/14/2015 08:58 PM, Jeff Squyres wrote:
MPI_INT corresponds to type(C_INT); MPI_INTEGER corresponds to INTEGER. --- test/mpi/f08/rma/aintf08.f90 | 4 ++-- test/mpi/f77/rma/aintf.f | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-)
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