Open MPI logo

Open MPI Development Mailing List Archives

  |   Home   |   Support   |   FAQ   |   all Development mailing list

Subject: [OMPI devel] [PATCH] MPI_FILE_SEEK_SHARED is wrong in Fortran
From: Y.MATSUMOTO (yuki.matsumoto_at_[hidden])
Date: 2012-01-25 05:25:38


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