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 245f4c1fdce2f93d98c1ed137733419648ad6e86 (commit) from 41d9cd4e3484bdd66b33e7f667483aeee92b3801 (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/245f4c1fdce2f93d98c1ed137733419648... commit 245f4c1fdce2f93d98c1ed137733419648ad6e86 Author: Rob Latham <[email protected]> Date: Mon Oct 10 14:30:32 2016 -0500 move ASYNCHRONOUS attributes for all tests commit ac4e1f9ab27c was not thorough enough and only fixed one test. Other tests had same declaration: fix all. No Reviewer diff --git a/test/mpi/f08/subarray/test11.f90 b/test/mpi/f08/subarray/test11.f90 index a33fdc4..f484aa2 100644 --- a/test/mpi/f08/subarray/test11.f90 +++ b/test/mpi/f08/subarray/test11.f90 @@ -15,7 +15,7 @@ program main character (len=80) :: title='test 11: Isend/Irecv - 1d array - iar(10)' integer :: sint, i - integer, dimension(10) :: iar + integer, ASYNCHRONOUS, dimension(10) :: iar type(MPI_Request) request type(MPI_Status) status @@ -33,7 +33,6 @@ program main end do block - ASYNCHRONOUS :: iar call mpi_isend(iar, 10, MPI_INTEGER, 1, 567, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then @@ -52,7 +51,6 @@ program main else if (rank .eq. 1) then block - ASYNCHRONOUS :: iar call mpi_irecv(iar, 10, MPI_INTEGER, 0, 567, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then diff --git a/test/mpi/f08/subarray/test12.f90 b/test/mpi/f08/subarray/test12.f90 index 9ad3341..ee576bf 100644 --- a/test/mpi/f08/subarray/test12.f90 +++ b/test/mpi/f08/subarray/test12.f90 @@ -15,7 +15,8 @@ program main character (len=80) :: title='test 12: Isend/Irecv array slice - iar(2:7)' integer :: sint, i - integer, dimension(10) :: iar, iar_check + integer, dimension(10) :: iar_check + integer, ASYNCHRONOUS, dimension(10) :: iar type(MPI_Request) request type(MPI_Status) status @@ -33,7 +34,6 @@ program main end do block - ASYNCHRONOUS :: iar call mpi_isend(iar(2:7), 6, MPI_INTEGER, 1, 678, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then @@ -59,7 +59,6 @@ program main end do block - ASYNCHRONOUS :: iar call mpi_irecv(iar(2:7), 6, MPI_INTEGER, 0, 678, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then diff --git a/test/mpi/f08/subarray/test14.f90 b/test/mpi/f08/subarray/test14.f90 index d11bb10..2c6311b 100644 --- a/test/mpi/f08/subarray/test14.f90 +++ b/test/mpi/f08/subarray/test14.f90 @@ -15,7 +15,8 @@ program main character (len=80) :: title='test 14: Isend/Irecv 2d array column slice - iar_2d(:,2:6:2)' integer :: i, j - integer, dimension(9,9) :: iar_2d, iar_2dch + integer, dimension(9,9) :: iar_2dch + integer, ASYNCHRONOUS, dimension(9,9) :: iar_2d type(MPI_Status) status type(MPI_Request) request @@ -57,7 +58,6 @@ program main if (rank .eq. 0) then block - ASYNCHRONOUS :: iar_2d call mpi_isend(iar_2d(:,2:6:2), 27, MPI_INTEGER, 1, 123, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then @@ -76,7 +76,6 @@ program main else if (rank .eq. 1) then block - ASYNCHRONOUS :: iar_2d call mpi_irecv(iar_2d(:,2:6:2), 27, MPI_INTEGER, 0, 123, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then diff --git a/test/mpi/f08/subarray/test15.f90 b/test/mpi/f08/subarray/test15.f90 index 2e183bb..7c3d3ee 100644 --- a/test/mpi/f08/subarray/test15.f90 +++ b/test/mpi/f08/subarray/test15.f90 @@ -15,7 +15,8 @@ program main character (len=80) :: title='test 15: Isend/Irecv 2d array column slice - iar_2d(1:7:3,2:6:2)' integer :: i, j - integer, dimension(9,9) :: iar_2d, iar_2dch + integer, dimension(9,9) :: iar_2dch + integer, ASYNCHRONOUS, dimension(9,9) :: iar_2d type(MPI_Status) status type(MPI_Request) request @@ -56,7 +57,6 @@ program main if (rank .eq. 0) then block - ASYNCHRONOUS :: iar_2d call mpi_isend(iar_2d(1:7:3,2:6:2), 9, MPI_INTEGER, 1, 123, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then if (verbose) print *,"PE ",rank,": ",name,": mpi_isend exited in error (",ierr,")" @@ -72,7 +72,6 @@ program main end block else if (rank .eq. 1) then block - ASYNCHRONOUS :: iar_2d call mpi_irecv(iar_2d(1:7:3,2:6:2), 9, MPI_INTEGER, 0, 123, MPI_COMM_WORLD, request, ierr); if (ierr .ne. MPI_SUCCESS) then ----------------------------------------------------------------------- Summary of changes: test/mpi/f08/subarray/test11.f90 | 4 +--- test/mpi/f08/subarray/test12.f90 | 5 ++--- test/mpi/f08/subarray/test14.f90 | 5 ++--- test/mpi/f08/subarray/test15.f90 | 5 ++--- 4 files changed, 7 insertions(+), 12 deletions(-) hooks/post-receive -- MPICH primary repository