Commit 68113ff6 authored by Junchao Zhang's avatar Junchao Zhang
Browse files

Fix an arg name in MPI_TYPE_NULL_DELETE_FN

No reviewer
parent 960a9c8a
...@@ -237,12 +237,12 @@ subroutine MPI_TYPE_NULL_COPY_FN(oldtype,type_keyval,extra_state, & ...@@ -237,12 +237,12 @@ subroutine MPI_TYPE_NULL_COPY_FN(oldtype,type_keyval,extra_state, &
ierror = MPI_SUCCESS ierror = MPI_SUCCESS
end subroutine end subroutine
subroutine MPI_TYPE_NULL_DELETE_FN(type,type_keyval, & subroutine MPI_TYPE_NULL_DELETE_FN(datatype,type_keyval, &
attribute_val, extra_state, ierror) attribute_val, extra_state, ierror)
use mpi_f08_types, only : MPI_Datatype use mpi_f08_types, only : MPI_Datatype
use mpi_f08_compile_constants, only : MPI_ADDRESS_KIND, MPI_SUCCESS use mpi_f08_compile_constants, only : MPI_ADDRESS_KIND, MPI_SUCCESS
implicit none implicit none
type(MPI_Datatype) :: type type(MPI_Datatype) :: datatype
integer :: type_keyval, ierror integer :: type_keyval, ierror
integer(kind=MPI_ADDRESS_KIND) :: attribute_val, extra_state integer(kind=MPI_ADDRESS_KIND) :: attribute_val, extra_state
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment