ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Merge pull request #6263 from jsquyres/pr/v4.0.x/minor-fortran-valgrind-fix

Просмотр исходного кода 
v4.0.x: mpi/fortran: Fix valgrind warnings for type create
Этот коммит содержится в:
Howard Pritchard 2019-01-13 12:31:46 -07:00 коммит произвёл GitHub
родитель bc58e22b03 979b401936
Коммит c9764f661b
Не найден ключ, соответствующий данной подписи
Идентификатор ключа GPG: 4AEE18F83AFDEB23
4 изменённых файлов: 4 добавлений и 4 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

2
ompi/mpi/fortran/mpif-h/type_create_f90_complex_f.c
Просмотреть файл

@ -70,7 +70,7 @@ void ompi_type_create_f90_complex_f(MPI_Fint *p, MPI_Fint *r,
MPI_Fint *newtype, MPI_Fint *ierr) MPI_Fint *newtype, MPI_Fint *ierr)
{ {
int c_ierr; int c_ierr;
MPI_Datatype c_newtype = PMPI_Type_f2c(*newtype); MPI_Datatype c_newtype;
c_ierr = PMPI_Type_create_f90_complex(OMPI_FINT_2_INT(*p), c_ierr = PMPI_Type_create_f90_complex(OMPI_FINT_2_INT(*p),
OMPI_FINT_2_INT(*r), OMPI_FINT_2_INT(*r),

2
ompi/mpi/fortran/mpif-h/type_create_f90_integer_f.c
Просмотреть файл

@ -70,7 +70,7 @@ void ompi_type_create_f90_integer_f(MPI_Fint *r, MPI_Fint *newtype,
MPI_Fint *ierr) MPI_Fint *ierr)
{ {
int c_ierr; int c_ierr;
MPI_Datatype c_new = PMPI_Type_f2c(*newtype); MPI_Datatype c_new;
c_ierr = PMPI_Type_create_f90_integer(OMPI_FINT_2_INT(*r), &c_new); c_ierr = PMPI_Type_create_f90_integer(OMPI_FINT_2_INT(*r), &c_new);
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

2
ompi/mpi/fortran/mpif-h/type_create_f90_real_f.c
Просмотреть файл

@ -70,7 +70,7 @@ void ompi_type_create_f90_real_f(MPI_Fint *p, MPI_Fint *r,
MPI_Fint *newtype, MPI_Fint *ierr) MPI_Fint *newtype, MPI_Fint *ierr)
{ {
int c_ierr; int c_ierr;
MPI_Datatype c_new = PMPI_Type_f2c(*newtype); MPI_Datatype c_new;
c_ierr = PMPI_Type_create_f90_real(OMPI_FINT_2_INT(*p), c_ierr = PMPI_Type_create_f90_real(OMPI_FINT_2_INT(*p),
OMPI_FINT_2_INT(*r), OMPI_FINT_2_INT(*r),

2
ompi/mpi/fortran/mpif-h/type_create_hindexed_f.c
Просмотреть файл

@ -75,7 +75,7 @@ void ompi_type_create_hindexed_f(MPI_Fint *count,
{ {
int c_ierr; int c_ierr;
MPI_Datatype c_old = PMPI_Type_f2c(*oldtype); MPI_Datatype c_old = PMPI_Type_f2c(*oldtype);
MPI_Datatype c_new = PMPI_Type_f2c(*newtype); MPI_Datatype c_new;
OMPI_ARRAY_NAME_DECL(array_of_blocklengths); OMPI_ARRAY_NAME_DECL(array_of_blocklengths);
OMPI_ARRAY_FINT_2_INT(array_of_blocklengths, *count); OMPI_ARRAY_FINT_2_INT(array_of_blocklengths, *count);