Thanks Yuki,
All the submitted patches have been pushed into the trunk
(https://svn.open-mpi.org/trac/ompi/changeset/25781) and are pending on the
queue for 1.4 and 1.5.
Thanks,
george.
On Jan 25, 2012, at 05:25 , Y.MATSUMOTO wrote:
> Dear All,
>
> Next is about "MPI_FILE_SEEK_SHARED" in Fortran.
>
> When MPI_FILE_SEEK_SHARED is called in Fortran Program,
> the shared file pointer is not updated.
>
> Incorrent function call is the following part:
> ----ompi/mpi/f77/file_seek_shared_f.c-----------
> 60 void mpi_file_seek_shared_f(MPI_Fint *fh, MPI_Offset *offset,
> 61 MPI_Fint *whence, MPI_Fint *ierr)
> 62 {
> 63 MPI_File c_fh = MPI_File_f2c(*fh);
> 64
> 65 *ierr = OMPI_INT_2_FINT(MPI_File_seek(c_fh, (MPI_Offset) *offset,
> 66 OMPI_FINT_2_INT(*whence)));
> 67 }
> ----ompi/mpi/f77/file_seek_shared_f.c-----------
> Attached patch fixes it(Patch is for in V1.4x).
>
> Best regards,
> Yuki MATSUMOTO
> MPI development team,
> Fujitsu
>
> <Fortran-file_seek_shared.patch>_______________________________________________
> devel mailing list
> [email protected]
> http://www.open-mpi.org/mailman/listinfo.cgi/devel
