[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