shmem/fortran: Fix invalid datatype size in call to atomic cswap
Signed-off-by: Scott Miller <scott.miller1@ibm.com> (cherry picked from commit 6b294e064150d26dfc68ec307cf4cd2e40891a1b)
Этот коммит содержится в:
родитель
97aa434182
Коммит
5f4f5d45b3
@ -4,6 +4,7 @@
|
||||
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
|
||||
* Copyright (c) 2014 Research Organization for Information Science
|
||||
* and Technology (RIST). All rights reserved.
|
||||
* Copyright (c) 2019 IBM Corporation. All rights reserved.
|
||||
* $COPYRIGHT$
|
||||
*
|
||||
* Additional copyrights may follow
|
||||
@ -42,7 +43,7 @@ ompi_fortran_integer4_t shmem_int4_cswap_f(FORTRAN_POINTER_T target, MPI_Fint *c
|
||||
(void *)&out_value,
|
||||
FPTR_2_INT(cond, sizeof(ompi_fortran_integer4_t)),
|
||||
FPTR_2_INT(value, sizeof(ompi_fortran_integer4_t)),
|
||||
sizeof(out_value),
|
||||
sizeof(ompi_fortran_integer4_t),
|
||||
OMPI_FINT_2_INT(*pe)));
|
||||
|
||||
return out_value;
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user