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

Merge pull request #5079 from jsquyres/pr/fortran-is-the-devil

Просмотр исходного кода 
status_set_cancelled: fix F08 binding
Этот коммит содержится в:
Howard Pritchard 2018-07-13 15:36:02 -05:00 коммит произвёл GitHub
родитель b12868239c 8251139bac
Коммит 9a5fd48388
Не найден ключ, соответствующий данной подписи
Идентификатор ключа GPG: 4AEE18F83AFDEB23
4 изменённых файлов: 8 добавлений и 8 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-interfaces.F90
Просмотреть файл

@ -1,6 +1,6 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2015 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2012 The University of Tennessee and The University
@ -3503,7 +3503,7 @@ subroutine MPI_Status_set_cancelled_f08(status,flag,ierror)
use :: mpi_f08_types, only : MPI_Status
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status
LOGICAL, INTENT(OUT) :: flag
LOGICAL, INTENT(IN) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine MPI_Status_set_cancelled_f08
end interface MPI_Status_set_cancelled

4
ompi/mpi/fortran/use-mpi-f08/mod/pmpi-f08-interfaces.F90
Просмотреть файл

@ -1,6 +1,6 @@
! -*- f90 -*-
!
! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
! All rights reserved.
! Copyright (c) 2012 The University of Tennessee and The University
@ -3503,7 +3503,7 @@ subroutine PMPI_Status_set_cancelled_f08(status,flag,ierror)
use :: mpi_f08_types, only : MPI_Status
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status
LOGICAL, INTENT(OUT) :: flag
LOGICAL, INTENT(IN) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
end subroutine PMPI_Status_set_cancelled_f08
end interface PMPI_Status_set_cancelled

4
ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_cancelled_f08.F90
Просмотреть файл

@ -1,6 +1,6 @@
! -*- f90 -*-
!
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2010-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All Rights reserved.
! $COPYRIGHT$
@ -9,7 +9,7 @@ subroutine PMPI_Status_set_cancelled_f08(status,flag,ierror)
use :: mpi_f08_types, only : MPI_Status
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status
LOGICAL, INTENT(OUT) :: flag
LOGICAL, INTENT(IN) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror

4
ompi/mpi/fortran/use-mpi-f08/status_set_cancelled_f08.F90
Просмотреть файл

@ -1,6 +1,6 @@
! -*- f90 -*-
!
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
! Copyright (c) 2010-2018 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
! All Rights reserved.
! $COPYRIGHT$
@ -9,7 +9,7 @@ subroutine MPI_Status_set_cancelled_f08(status,flag,ierror)
use :: mpi_f08_types, only : MPI_Status
implicit none
TYPE(MPI_Status), INTENT(INOUT) :: status
LOGICAL, INTENT(OUT) :: flag
LOGICAL, INTENT(IN) :: flag
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
integer :: c_ierror