1
1

Merge pull request #3306 from kawashima-fj/pr/darray-accumulate-fix

datatype: Fix darray MPI_ACCUMULATE bug
Этот коммит содержится в:
KAWASHIMA Takahiro 2017-04-10 18:42:35 +09:00 коммит произвёл GitHub
родитель f5942ff23c b4599d7bb7
Коммит 94092fbbab

Просмотреть файл

@ -758,12 +758,12 @@ static ompi_datatype_t* __ompi_datatype_create_from_args( int32_t* i, MPI_Aint*
/******************************************************************/
case MPI_COMBINER_DARRAY:
ompi_datatype_create_darray( i[0] /* size */, i[1] /* rank */, i[2] /* ndims */,
&i[3 + 0 * i[0]], &i[3 + 1 * i[0]],
&i[3 + 2 * i[0]], &i[3 + 3 * i[0]],
i[3 + 4 * i[0]], d[0], &datatype );
&i[3 + 0 * i[2]], &i[3 + 1 * i[2]],
&i[3 + 2 * i[2]], &i[3 + 3 * i[2]],
i[3 + 4 * i[2]], d[0], &datatype );
{
const int* a_i[8] = {&i[0], &i[1], &i[2], &i[3 + 0 * i[0]], &i[3 + 1 * i[0]], &i[3 + 2 * i[0]],
&i[3 + 3 * i[0]], &i[3 + 4 * i[0]]};
const int* a_i[8] = {&i[0], &i[1], &i[2], &i[3 + 0 * i[2]], &i[3 + 1 * i[2]], &i[3 + 2 * i[2]],
&i[3 + 3 * i[2]], &i[3 + 4 * i[2]]};
ompi_datatype_set_args( datatype, 4 * i[2] + 4, a_i, 0, NULL, 1, d, MPI_COMBINER_DARRAY);
}
break;