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

shmem/fortran: Fix invalid datatype size in call to atomic cswap

Просмотр исходного кода 
Signed-off-by: Scott Miller <scott.miller1@ibm.com>
Этот коммит содержится в:
Scott Miller 2019-03-20 21:35:53 -04:00
родитель 53cd31ed7e
Коммит 6b294e0641
1 изменённых файлов: 2 добавлений и 1 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

3
oshmem/shmem/fortran/shmem_int4_cswap_f.c
Просмотреть файл

@ -4,6 +4,7 @@
* Copyright (c) 2013 Cisco Systems, Inc. All rights reserved. * Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2014 Research Organization for Information Science * Copyright (c) 2014 Research Organization for Information Science
* and Technology (RIST). All rights reserved. * and Technology (RIST). All rights reserved.
* Copyright (c) 2019 IBM Corporation. All rights reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
* Additional copyrights may follow * 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, (void *)&out_value,
FPTR_2_INT(cond, sizeof(ompi_fortran_integer4_t)), FPTR_2_INT(cond, sizeof(ompi_fortran_integer4_t)),
FPTR_2_INT(value, 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))); OMPI_FINT_2_INT(*pe)));
return out_value; return out_value;