1
1

Fix MPI_*_GET_ATTR flag parameter to be of type logical. Thanks to

Michael Kluskens for pointing this out.

This commit was SVN r9676.
Этот коммит содержится в:
Jeff Squyres 2006-04-21 04:31:49 +00:00
родитель 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}