mpi: support MPI_Dims_create(..., ndims=0, ...)
this is a bozo case, but it should not fail with MPI_ERR_DIMS Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
родитель
2b18044051
Коммит
ad7f3f93b0
@ -13,7 +13,7 @@
|
|||||||
* reserved.
|
* reserved.
|
||||||
* Copyright (c) 2014 Intel, Inc. All rights reserved
|
* Copyright (c) 2014 Intel, Inc. All rights reserved
|
||||||
* Copyright (c) 2015 Cisco Systems, Inc. All rights reserved.
|
* Copyright (c) 2015 Cisco Systems, Inc. All rights reserved.
|
||||||
* Copyright (c) 2015 Research Organization for Information Science
|
* Copyright (c) 2015-2016 Research Organization for Information Science
|
||||||
* and Technology (RIST). All rights reserved.
|
* and Technology (RIST). All rights reserved.
|
||||||
* $COPYRIGHT$
|
* $COPYRIGHT$
|
||||||
*
|
*
|
||||||
@ -65,16 +65,16 @@ int MPI_Dims_create(int nnodes, int ndims, int dims[])
|
|||||||
if (MPI_PARAM_CHECK) {
|
if (MPI_PARAM_CHECK) {
|
||||||
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
|
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
|
||||||
|
|
||||||
if (NULL == dims) {
|
if (0 > ndims) {
|
||||||
return OMPI_ERRHANDLER_INVOKE (MPI_COMM_WORLD,
|
|
||||||
MPI_ERR_ARG, FUNC_NAME);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (1 > ndims) {
|
|
||||||
return OMPI_ERRHANDLER_INVOKE (MPI_COMM_WORLD,
|
return OMPI_ERRHANDLER_INVOKE (MPI_COMM_WORLD,
|
||||||
MPI_ERR_DIMS, FUNC_NAME);
|
MPI_ERR_DIMS, FUNC_NAME);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if ((0 != ndims) && (NULL == dims)) {
|
||||||
|
return OMPI_ERRHANDLER_INVOKE (MPI_COMM_WORLD,
|
||||||
|
MPI_ERR_ARG, FUNC_NAME);
|
||||||
|
}
|
||||||
|
|
||||||
if (1 > nnodes) {
|
if (1 > nnodes) {
|
||||||
return OMPI_ERRHANDLER_INVOKE (MPI_COMM_WORLD,
|
return OMPI_ERRHANDLER_INVOKE (MPI_COMM_WORLD,
|
||||||
MPI_ERR_DIMS, FUNC_NAME);
|
MPI_ERR_DIMS, FUNC_NAME);
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user