Skip to content

Commit

Permalink
fortran: Change PMPI_Aint_{add,diff} to functions.
Browse files Browse the repository at this point in the history
They were incorrectly changed to subroutines in only `pmpi`
in 258d1aa.

Strictly speaking, this change involves binary incompatibility.
But nobody used these subroutines and nobody will be affected because
these subroutines were useless (didn't return a calculated value).

Signed-off-by: KAWASHIMA Takahiro <t-kawashima@jp.fujitsu.com>
  • Loading branch information
kawashima-fj committed Dec 26, 2017
1 parent 9240967 commit d4fc404
Showing 1 changed file with 6 additions and 4 deletions.
10 changes: 6 additions & 4 deletions ompi/mpi/fortran/use-mpi-f08/mod/pmpi-f08-interfaces.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2484,21 +2484,23 @@ end function PMPI_Wtime_f08
end interface PMPI_Wtime

interface PMPI_Aint_add
subroutine PMPI_Aint_add_f08(base,diff)
function PMPI_Aint_add_f08(base,diff)
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none
INTEGER(MPI_ADDRESS_KIND) :: base
INTEGER(MPI_ADDRESS_KIND) :: diff
end subroutine PMPI_Aint_add_f08
INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_add_f08
end function PMPI_Aint_add_f08
end interface PMPI_Aint_add

interface PMPI_Aint_diff
subroutine PMPI_Aint_diff_f08(addr1,addr2)
function PMPI_Aint_diff_f08(addr1,addr2)
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none
INTEGER(MPI_ADDRESS_KIND) :: addr1
INTEGER(MPI_ADDRESS_KIND) :: addr2
end subroutine PMPI_Aint_diff_f08
INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_diff_f08
end function PMPI_Aint_diff_f08
end interface PMPI_Aint_diff

interface PMPI_Abort
Expand Down

0 comments on commit d4fc404

Please sign in to comment.