[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.0.3-50-g0f1067d

[mysql vizuser]

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  0f1067da5ffe74f6288f2767fe701d82a85ce99c (commit)
      from  d4aa328f8e4ea24afdc60dc3d64182961828c178 (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/0f1067da5ffe74f6288f2767fe701d82a85ce99c

commit 0f1067da5ffe74f6288f2767fe701d82a85ce99c
Author: William Gropp <wgropp at illinois.edu>
Date:   Tue Apr 23 09:17:49 2013 -0700

    Fix for #1813
    
    Pass the second argument to MPI_WIN_CREATE in Fortran as an address-sized
    integer to fix a test failure.

diff --git a/test/mpi/errors/f77/errhan/uerrhandf.f b/test/mpi/errors/f77/errhan/uerrhandf.f
index cd3c8bd..26eef2b 100644
--- a/test/mpi/errors/f77/errhan/uerrhandf.f
+++ b/test/mpi/errors/f77/errhan/uerrhandf.f
@@ -57,7 +57,8 @@ C
          endif
       endif
 
-      call mpi_win_create( winbuf, 2*sizeofint, sizeofint, MPI_INFO_NULL
+      asize = 2*sizeofint
+      call mpi_win_create( winbuf, asize, sizeofint, MPI_INFO_NULL
      $     , wdup, winh, ierr ) 
       if (ierr .ne. MPI_SUCCESS) then
          call mtestprinterrormsg( "Win_create:", ierr )

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

Summary of changes:
 test/mpi/errors/f77/errhan/uerrhandf.f |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
MPICH primary repository