Open MPI logo

Open MPI Development Mailing List Archives

  |   Home   |   Support   |   FAQ   |   all Development mailing list

Subject: Re: [OMPI devel] [PATCH] MPI_FILE_SEEK_SHARED is wrong in Fortran
From: George Bosilca (bosilca_at_[hidden])
Date: 2012-01-25 23:26:46


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
> devel_at_[hidden]
> http://www.open-mpi.org/mailman/listinfo.cgi/devel