1
1

fortran: don't use optional params in the ompi/pompi interfaces

Fix a copy-n-paste error: the ompi/pompi interfaces should not have
optional ierror arguments.  Optional ierror arguments are only used in
the MPI_<foo> interfaces.  The ompi/pompi interfaces are the actual
underlying routines (in C, incidentally, which is why they're declared
as BIND(C)), and do not have optional ierror arguments.

Also fix a typo in the BIND(C) name for pompi_win_shared_query_f().

cmr=v1.8.2:reviewer=ggouaillardet

This commit was SVN r32287.
Этот коммит содержится в:
Jeff Squyres 2014-07-22 21:51:29 +00:00
родитель 4da3c85b54
Коммит 8e80480cbc
2 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -2435,7 +2435,7 @@ subroutine ompi_win_shared_query_f(win, rank, size, disp_unit, baseptr,&
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: size
INTEGER, INTENT(OUT) :: disp_unit
TYPE(C_PTR), INTENT(OUT) :: baseptr
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
INTEGER, INTENT(OUT) :: ierror
end subroutine ompi_win_shared_query_f
subroutine ompi_win_start_f(group,assert,win,ierror) &

Просмотреть файл

@ -2264,7 +2264,7 @@ subroutine pompi_win_post_f(group,assert,win,ierror) &
end subroutine pompi_win_post_f
subroutine pompi_win_shared_query_f(win, rank, size, disp_unit, baseptr,&
ierror) BIND(C, name="ompi_win_shared_query_f")
ierror) BIND(C, name="pompi_win_shared_query_f")
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
INTEGER, INTENT(IN) :: win
@ -2272,7 +2272,7 @@ subroutine pompi_win_shared_query_f(win, rank, size, disp_unit, baseptr,&
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: size
INTEGER, INTENT(OUT) :: disp_unit
TYPE(C_PTR), INTENT(OUT) :: baseptr
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
INTEGER, INTENT(OUT) :: ierror
end subroutine pompi_win_shared_query_f
subroutine pompi_win_start_f(group,assert,win,ierror) &