From 6b294e064150d26dfc68ec307cf4cd2e40891a1b Mon Sep 17 00:00:00 2001 From: Scott Miller Date: Wed, 20 Mar 2019 21:35:53 -0400 Subject: [PATCH] shmem/fortran: Fix invalid datatype size in call to atomic cswap Signed-off-by: Scott Miller --- oshmem/shmem/fortran/shmem_int4_cswap_f.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/oshmem/shmem/fortran/shmem_int4_cswap_f.c b/oshmem/shmem/fortran/shmem_int4_cswap_f.c index 460cc7c4dc..a1e5fbfe92 100644 --- a/oshmem/shmem/fortran/shmem_int4_cswap_f.c +++ b/oshmem/shmem/fortran/shmem_int4_cswap_f.c @@ -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;