[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2rc1-19-g99d8c77

Service Account noreply at mpich.org
Wed Oct 28 16:35:54 CDT 2015


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/99d8c7717a16a9f8998f865046aafc7ac44dd4f0

commit 99d8c7717a16a9f8998f865046aafc7ac44dd4f0
Author: Jeff Squyres <jsquyres at cisco.com>
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 <raffenet at mcs.anl.gov>

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


More information about the commits mailing list