Skip to content
This repository was archived by the owner on Sep 30, 2022. It is now read-only.

Commit 486c622

Browse files
committed
fortran: Change subroutine declaration order
Same order for `comm`, `type`, and `win`. No code change. (cherry picked from commit open-mpi/ompi@334c63c)
1 parent e477a18 commit 486c622

File tree

1 file changed

+11
-11
lines changed

1 file changed

+11
-11
lines changed

ompi/mpi/fortran/base/attr-fn-int-callback-interfaces.h

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -49,6 +49,17 @@ interface
4949

5050
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5151

52+
subroutine MPI_COMM_DUP_FN(oldcomm, comm_keyval, extra_state, attribute_val_in, &
53+
attribute_val_out, flag, ierr )
54+
implicit none
55+
include 'mpif-config.h'
56+
integer :: oldcomm
57+
integer :: comm_keyval
58+
integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out
59+
logical :: flag
60+
integer :: ierr
61+
end subroutine MPI_COMM_DUP_FN
62+
5263
subroutine MPI_COMM_NULL_COPY_FN( comm, comm_keyval, extra_state, &
5364
attribute_val_in, attribute_val_out, &
5465
flag, ierr )
@@ -71,17 +82,6 @@ interface
7182
integer :: ierr
7283
end subroutine MPI_COMM_NULL_DELETE_FN
7384

74-
subroutine MPI_COMM_DUP_FN(oldcomm, comm_keyval, extra_state, attribute_val_in, &
75-
attribute_val_out, flag, ierr )
76-
implicit none
77-
include 'mpif-config.h'
78-
integer :: oldcomm
79-
integer :: comm_keyval
80-
integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out
81-
logical :: flag
82-
integer :: ierr
83-
end subroutine MPI_COMM_DUP_FN
84-
8585
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
8686

8787
subroutine MPI_TYPE_DUP_FN( oldtype, type_keyval, extra_state, &

0 commit comments

Comments
 (0)