Fix #3094: do the correct cast for the right integer size.
This commit was SVN r26439.
Этот коммит содержится в:
родитель
8c209ca32a
Коммит
d74795b299
@ -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;
|
||||
}
|
||||
}
|
||||
|
@ -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;
|
||||
}
|
||||
}
|
||||
|
@ -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);
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user