Skip to content

Commit 339a289

Browse files
committed
ompi/win: use type int* for MPI_WIN_DISP_UNIT, MPI_WIN_CREATE_FLAVOR and MPI_WIN_MODEL
Thanks Alastair McKinstry for the report. (back-ported from commit open-mpi/ompi@d08fb46)
1 parent 6d158a1 commit 339a289

File tree

1 file changed

+6
-4
lines changed

1 file changed

+6
-4
lines changed

ompi/win/win.c

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,8 @@
1414
* Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
1515
* Copyright (c) 2013-2015 Los Alamos National Security, LLC. All rights
1616
* reserved.
17+
* Copyright (c) 2016 Research Organization for Information Science
18+
* and Technology (RIST). All rights reserved.
1719
* $COPYRIGHT$
1820
*
1921
* Additional copyrights may follow
@@ -139,18 +141,18 @@ config_window(void *base, size_t size, int disp_unit,
139141
MPI_WIN_SIZE, size, true);
140142
if (OMPI_SUCCESS != ret) return ret;
141143

142-
ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win,
143-
&win->w_keyhash,
144+
ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win,
145+
&win->w_keyhash,
144146
MPI_WIN_DISP_UNIT, disp_unit,
145147
true);
146148
if (OMPI_SUCCESS != ret) return ret;
147149

148-
ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win,
150+
ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win,
149151
&win->w_keyhash,
150152
MPI_WIN_CREATE_FLAVOR, flavor, true);
151153
if (OMPI_SUCCESS != ret) return ret;
152154

153-
ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win,
155+
ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win,
154156
&win->w_keyhash,
155157
MPI_WIN_MODEL, model, true);
156158
if (OMPI_SUCCESS != ret) return ret;

0 commit comments

Comments
 (0)