[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2-466-gac4e1f9

[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  ac4e1f9ab27cb31b61fd66fb9d5138e7d08f864b (commit)
      from  046400f50861dbc800f5b3a0ed5d4513ab2e1fdd (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/ac4e1f9ab27cb31b61fd66fb9d5138e7d08f864b

commit ac4e1f9ab27cb31b61fd66fb9d5138e7d08f864b
Author: Rob Latham <robl at mcs.anl.gov>
Date:   Thu Sep 29 13:29:37 2016 -0500

    fix test to declare ASYNC variable out of block
    
    No Reviewer

diff --git a/test/mpi/f08/subarray/test10.f90 b/test/mpi/f08/subarray/test10.f90
index 1b28f25..e5df1d0 100644
--- a/test/mpi/f08/subarray/test10.f90
+++ b/test/mpi/f08/subarray/test10.f90
@@ -14,7 +14,8 @@ program main
     character*8 :: name='test10'
     character*80 :: title='test 10: Isend/Irecv - send integer'
 
-    integer :: sint, i
+    integer :: i
+    integer, ASYNCHRONOUS :: sint
     integer, dimension(10) :: iar
     type(MPI_Request) request
     type(MPI_Status) status
@@ -34,7 +35,6 @@ program main
         endif
 
         block
-            ASYNCHRONOUS :: sint
 
             call mpi_isend(sint, 1, MPI_INTEGER, 1, 567, MPI_COMM_WORLD, request, ierr);
             if (ierr .ne. MPI_SUCCESS) then
@@ -50,7 +50,6 @@ program main
         end block
     else
         block
-            ASYNCHRONOUS :: sint
 
             call mpi_irecv(sint, 1, MPI_INTEGER, 0, 567, MPI_COMM_WORLD, request, ierr);
             if (ierr .ne. MPI_SUCCESS) then

-----------------------------------------------------------------------

Summary of changes:
 test/mpi/f08/subarray/test10.f90 |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
MPICH primary repository