Fix MPI_*_GET_ATTR flag parameter to be of type logical. Thanks to
Michael Kluskens for pointing this out. This commit was SVN r9676.
Этот коммит содержится в:
родитель
6de9755919
Коммит
0556c129df
@ -1492,7 +1492,7 @@ subroutine ${procedure}(comm, comm_keyval, attribute_val, flag, ierr)
|
||||
integer, intent(in) :: comm
|
||||
integer, intent(in) :: comm_keyval
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
|
||||
integer, intent(out) :: flag
|
||||
logical, intent(out) :: flag
|
||||
integer, intent(out) :: ierr
|
||||
end subroutine ${procedure}
|
||||
|
||||
@ -8113,7 +8113,7 @@ subroutine ${procedure}(type, type_keyval, attribute_val, flag, ierr)
|
||||
integer, intent(in) :: type
|
||||
integer, intent(in) :: type_keyval
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
|
||||
integer, intent(out) :: flag
|
||||
logical, intent(out) :: flag
|
||||
integer, intent(out) :: ierr
|
||||
end subroutine ${procedure}
|
||||
|
||||
@ -9028,7 +9028,7 @@ subroutine ${procedure}(win, win_keyval, attribute_val, flag, ierr)
|
||||
integer, intent(in) :: win
|
||||
integer, intent(in) :: win_keyval
|
||||
integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
|
||||
integer, intent(out) :: flag
|
||||
logical, intent(out) :: flag
|
||||
integer, intent(out) :: ierr
|
||||
end subroutine ${procedure}
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user