Commit e7e36fc7 authored by Min Si's avatar Min Si Committed by Junchao Zhang
Browse files

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: default avatarJunchao Zhang <jczhang@mcs.anl.gov>
parent 8672503d
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment