[mpich-devel] [PATCH] MPI_Aint_* tests: use MPI_INTEGER datatype in Fortran

[Kenneth Raffenetti]

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
>