Problem with MPI_File_Iwrite #4807
Description
I am trying to run this code:
program main
use mpi
implicit none
integer :: ierr,buf,c,fh,req
call mpi_init(ierr)
call mpi_file_open(mpi_comm_world,'test',mpi_mode_rdwr+mpi_mode_create,mpi_info_null,fh,ierr)
buf=100
c=1
call mpi_file_iwrite(fh,buf,c,mpi_integer,req,ierr)
call mpi_wait(req,mpi_status_ignore,ierr)
call mpi_finalize(ierr)
end program mainBut it's only working with version 1.10.7.
With version 2.0.4, 2.1.2, 3.0.0, 3.1.0rc1 I got a segfault on the mpi_wait line. But the file is still created.
I have installed every version with
./configure --prefix=my_prefix
make install -jI am running on a basic desktop workstation, ext4 filesystem, with ubuntu 16.04.1 and gfortran 5.4.0
With Open MPI 3.0.0:
$ mpif90 main.f90 -g
$ mpirun -n 1 ./a.out
Program received signal SIGSEGV: Segmentation fault - invalid memory reference.
Backtrace for this error:
#0 0x7FE0C41BBE08
#1 0x7FE0C41BAF90
#2 0x7FE0C3E0B4AF
#3 0x7FE0C45149E8
#4 0x400B64 in MAIN__ at main.f90:10
-------------------------------------------------------
Primary job terminated normally, but 1 process returned
a non-zero exit code. Per user-direction, the job has been aborted.
-------------------------------------------------------
--------------------------------------------------------------------------
mpirun noticed that process rank 0 with PID 0 on node cegdel02 exited on signal 11 (Segmentation fault).
--------------------------------------------------------------------------
$ ls
a.out main.f90 test
$ od -i test
0000000 100
0000004