From d74795b299fa254c49813ba99dd9860bafcad42f Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Tue, 15 May 2012 15:15:33 +0000 Subject: [PATCH] Fix #3094: do the correct cast for the right integer size. This commit was SVN r26439. --- ompi/mpi/fortran/mpif-h/file_get_position_f.c | 2 +- ompi/mpi/fortran/mpif-h/file_get_size_f.c | 2 +- ompi/mpi/fortran/mpif-h/file_get_view_f.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ompi/mpi/fortran/mpif-h/file_get_position_f.c b/ompi/mpi/fortran/mpif-h/file_get_position_f.c index 2694eca612..26e2a755b8 100644 --- a/ompi/mpi/fortran/mpif-h/file_get_position_f.c +++ b/ompi/mpi/fortran/mpif-h/file_get_position_f.c @@ -74,6 +74,6 @@ void ompi_file_get_position_f(MPI_Fint *fh, MPI_Offset *offset, MPI_Fint *ierr) if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { - *offset = (MPI_Fint) c_offset; + *offset = (MPI_Offset) c_offset; } } diff --git a/ompi/mpi/fortran/mpif-h/file_get_size_f.c b/ompi/mpi/fortran/mpif-h/file_get_size_f.c index ce29bb4af8..4d8f96ef07 100644 --- a/ompi/mpi/fortran/mpif-h/file_get_size_f.c +++ b/ompi/mpi/fortran/mpif-h/file_get_size_f.c @@ -74,6 +74,6 @@ void ompi_file_get_size_f(MPI_Fint *fh, MPI_Offset *size, MPI_Fint *ierr) if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { - *size = (MPI_Fint) c_size; + *size = (MPI_Offset) c_size; } } diff --git a/ompi/mpi/fortran/mpif-h/file_get_view_f.c b/ompi/mpi/fortran/mpif-h/file_get_view_f.c index ec373026c5..9396298d50 100644 --- a/ompi/mpi/fortran/mpif-h/file_get_view_f.c +++ b/ompi/mpi/fortran/mpif-h/file_get_view_f.c @@ -81,7 +81,7 @@ void ompi_file_get_view_f(MPI_Fint *fh, MPI_Offset *disp, if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { - *disp = (MPI_Fint) c_disp; + *disp = (MPI_Offset) c_disp; *etype = MPI_Type_c2f(c_etype); *filetype = MPI_Type_c2f(c_filetype); ompi_fortran_string_c2f(c_datarep, datarep, datarep_len);