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

update MPI_F08_status type

Просмотр исходного кода 
Make the C MPI_F08_status type definition match the updated
mpi_f08 type(MPI_Status) definition.

This fix the inconsistency introduced in open-mpi/ompi@98bc7af7d4

Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
Gilles Gouaillardet 2020-07-21 22:10:31 +09:00 коммит произвёл Jeff Squyres
родитель 43e3addca6
Коммит 7fce2f3057
2 изменённых файлов: 22 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

5
config/ompi_setup_mpi_fortran.m4
Просмотреть файл

@ -15,7 +15,7 @@ dnl Copyright (c) 2006-2008 Sun Microsystems, Inc. All rights reserved.
dnl Copyright (c) 2006-2007 Los Alamos National Security, LLC. All rights
dnl reserved.
dnl Copyright (c) 2009 Oak Ridge National Labs. All rights reserved.
dnl Copyright (c) 2014-2019 Research Organization for Information Science
dnl Copyright (c) 2014-2020 Research Organization for Information Science
dnl and Technology (RIST). All rights reserved.
dnl Copyright (c) 2016 IBM Corporation. All rights reserved.
dnl Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
@ -276,6 +276,9 @@ AC_DEFUN([OMPI_SETUP_MPI_FORTRAN],[
OMPI_FORTRAN_STATUS_SIZE=$num_ints
AC_MSG_RESULT([$OMPI_FORTRAN_STATUS_SIZE Fortran INTEGERs])
AC_SUBST(OMPI_FORTRAN_STATUS_SIZE)
AC_DEFINE_UNQUOTED([OMPI_FORTRAN_STATUS_SIZE],
[$OMPI_FORTRAN_STATUS_SIZE],
[The number or Fortran INTEGER in MPI Status])
# Setup for the compilers that don't support ignore TKR functionality
OPAL_UNIQ(OMPI_FORTRAN_IKINDS)

20
ompi/include/mpi.h.in
Просмотреть файл

@ -17,8 +17,8 @@
* reserved.
* Copyright (c) 2011-2013 INRIA. All rights reserved.
* Copyright (c) 2015 University of Houston. All rights reserved.
* Copyright (c) 2015-2018 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* Copyright (c) 2015-2020 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* Copyright (c) 2017-2019 IBM Corporation. All rights reserved.
* Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
* $COPYRIGHT$
@ -98,6 +98,9 @@
/* Maximum length of processor names (default is 256) */
#undef OPAL_MAX_PROCESSOR_NAME
/* The number or Fortran INTEGER in MPI Status */
#undef OMPI_FORTRAN_STATUS_SIZE
/* Whether we have FORTRAN LOGICAL*1 or not */
#undef OMPI_HAVE_FORTRAN_LOGICAL1
@ -432,6 +435,19 @@ struct ompi_status_public_t {
};
typedef struct ompi_status_public_t ompi_status_public_t;
/*
* MPI_F08_status
*/
struct ompi_f08_status_public_t {
/* These fields are publicly defined in the MPI specification.
User applications may freely read from these fields. */
MPI_Fint MPI_SOURCE;
MPI_Fint MPI_TAG;
MPI_Fint MPI_ERROR;
MPI_Fint internal[OMPI_FORTRAN_STATUS_SIZE - 3];
};
typedef struct ompi_f08_status_public_t ompi_f08_status_public_t;
/*
* User typedefs
*/