[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2a2-33-ge7e36fc

[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  e7e36fc7011a4ae4d8ca4e2f8343f64b503f53e4 (commit)
      from  8672503dc9dada489792c063dc8e6665cca0f47b (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/e7e36fc7011a4ae4d8ca4e2f8343f64b503f53e4

commit e7e36fc7011a4ae4d8ca4e2f8343f64b503f53e4
Author: Min Si <msi at il.is.s.u-tokyo.ac.jp>
Date:   Thu Dec 4 17:01:11 2014 -0600

    Fix win size translation in attrlangf90 test.
    
    This test passed a 0 size to win_create which is translated to a
    integer(32bit) var by fortran compiler and passed to c mpi_win_create as
    an invalid MPI_Aint(64bit) var by fortran binding because prototype
    checking is not supported. This test can be failed if mpi_win_create
    internally initializes resource related to the value of size (i.e., mxm
    maps win buffer in win_init).
    
    This patch fixed this issue by passing a 64bit local variable as size
    parameter instead of a constant var 0 in this f90 test.
    
    Signed-off-by: Junchao Zhang <jczhang at mcs.anl.gov>

diff --git a/test/mpi/f90/attr/attrlangf90.f90 b/test/mpi/f90/attr/attrlangf90.f90
index e1cedbc..d126631 100644
--- a/test/mpi/f90/attr/attrlangf90.f90
+++ b/test/mpi/f90/attr/attrlangf90.f90
@@ -142,6 +142,7 @@
       implicit none
       integer ierr
       integer errs, tv, rank
+      integer(MPI_ADDRESS_KIND) tmp
 
       errs = 0
       call MPI_INIT( ierr )
@@ -193,7 +194,8 @@
            & )
 !
 !     Create a window to use with the attribute tests in Fortran
-      call MPI_WIN_CREATE( MPI_BOTTOM, 0, 1, MPI_INFO_NULL,&
+      tmp = 0
+      call MPI_WIN_CREATE( MPI_BOTTOM, tmp, 1, MPI_INFO_NULL,&
            & MPI_COMM_WORLD, win, ierr )
 !
       if (fverbose) then

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

Summary of changes:
 test/mpi/f90/attr/attrlangf90.f90 |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
MPICH primary repository