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

[Jeff Squyres]

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
-- 
2.4.3