[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2-476-g245f4c1

[Service Account]

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/245f4c1fdce2f93d98c1ed137733419648ad6e86

commit 245f4c1fdce2f93d98c1ed137733419648ad6e86
Author: Rob Latham <robl at mcs.anl.gov>
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