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

fortran/mpif-h: fix MPI_Win_free_keyval

Просмотр исходного кода 
initialize inout parameter when OMPI_SIZEOF_FORTRAN_INTEGER > SIZEOF_INT
Этот коммит содержится в:
Gilles Gouaillardet 2016-04-27 10:46:14 +09:00
родитель 8f93b15e90
Коммит 7f59d2a8c7
1 изменённых файлов: 3 добавлений и 1 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/mpi/fortran/mpif-h/win_free_keyval_f.c
Просмотреть файл

@ -10,7 +10,7 @@
* Copyright (c) 2004-2005 The Regents of the University of California. * Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved. * All rights reserved.
* Copyright (c) 2011-2012 Cisco Systems, Inc. All rights reserved. * Copyright (c) 2011-2012 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$
* *
@ -71,6 +71,8 @@ void ompi_win_free_keyval_f(MPI_Fint *win_keyval, MPI_Fint *ierr)
int c_ierr; int c_ierr;
OMPI_SINGLE_NAME_DECL(win_keyval); OMPI_SINGLE_NAME_DECL(win_keyval);
OMPI_SINGLE_FINT_2_INT(win_keyval);
c_ierr = PMPI_Win_free_keyval(OMPI_SINGLE_NAME_CONVERT(win_keyval)); c_ierr = PMPI_Win_free_keyval(OMPI_SINGLE_NAME_CONVERT(win_keyval));
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);