Skip to content

Commit 704f14f

Browse files
committed
f08: do not BIND(C) to subroutines with LOGICAL parameters
Thanks Paul Romano for reporting this issue.
1 parent 53185e7 commit 704f14f

File tree

2 files changed

+17
-17
lines changed

2 files changed

+17
-17
lines changed

ompi/mpi/fortran/use-mpi-f08/attr-fn-f08-callback-interfaces.h

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved.
55
! Copyright (c) 2013 Los Alamos National Security, LLC. All rights
66
! reserved.
7-
! Copyright (c) 2015 Research Organization for Information Science
7+
! Copyright (c) 2015-2016 Research Organization for Information Science
88
! and Technology (RIST). All rights reserved.
99
! $COPYRIGHT$
1010
!
@@ -45,7 +45,7 @@ interface
4545

4646
subroutine MPI_COMM_NULL_COPY_FN( comm, comm_keyval, extra_state, &
4747
attribute_val_in, attribute_val_out, &
48-
flag, ierr ) BIND(C,name="ompi_comm_null_copy_fn_f")
48+
flag, ierr )
4949
use mpi_f08_types
5050
implicit none
5151
type(MPI_Comm) :: comm
@@ -57,7 +57,7 @@ interface
5757

5858
subroutine MPI_COMM_DUP_FN( comm, comm_keyval, extra_state, &
5959
attribute_val_in, attribute_val_out, &
60-
flag, ierr ) BIND(C,name="ompi_comm_dup_fn_f")
60+
flag, ierr )
6161
use mpi_f08_types
6262
implicit none
6363
type(MPI_Comm) :: comm
@@ -68,7 +68,7 @@ interface
6868
end subroutine MPI_COMM_DUP_FN
6969

7070
subroutine MPI_COMM_NULL_DELETE_FN(comm, comm_keyval, attribute_val_out, &
71-
extra_state, ierr ) BIND(C,name="ompi_comm_null_delete_fn_f")
71+
extra_state, ierr )
7272
use mpi_f08_types
7373
implicit none
7474
type(MPI_Comm) :: comm
@@ -81,7 +81,7 @@ interface
8181

8282
subroutine MPI_TYPE_NULL_COPY_FN( type, type_keyval, extra_state, &
8383
attribute_val_in, attribute_val_out, &
84-
flag, ierr ) BIND(C,name="ompi_type_null_copy_fn_f")
84+
flag, ierr )
8585
use mpi_f08_types
8686
implicit none
8787
type(MPI_Datatype) :: type
@@ -93,7 +93,7 @@ interface
9393

9494
subroutine MPI_TYPE_DUP_FN( type, type_keyval, extra_state, &
9595
attribute_val_in, attribute_val_out, &
96-
flag, ierr ) BIND(C,name="ompi_type_dup_fn_f")
96+
flag, ierr )
9797
use mpi_f08_types
9898
implicit none
9999
type(MPI_Datatype) :: type
@@ -104,7 +104,7 @@ interface
104104
end subroutine MPI_TYPE_DUP_FN
105105

106106
subroutine MPI_TYPE_NULL_DELETE_FN( type, type_keyval, attribute_val_out, &
107-
extra_state, ierr ) BIND(C,name="ompi_type_null_delete_fn_f")
107+
extra_state, ierr )
108108
use mpi_f08_types
109109
implicit none
110110
type(MPI_Datatype) :: type
@@ -117,7 +117,7 @@ interface
117117

118118
subroutine MPI_WIN_NULL_COPY_FN( window, win_keyval, extra_state, &
119119
attribute_val_in, attribute_val_out, &
120-
flag, ierr ) BIND(C,name="ompi_win_null_copy_fn_f")
120+
flag, ierr )
121121
use mpi_f08_types
122122
implicit none
123123
type(MPI_Win) :: window
@@ -129,7 +129,7 @@ interface
129129

130130
subroutine MPI_WIN_DUP_FN( window, win_keyval, extra_state, &
131131
attribute_val_in, attribute_val_out, &
132-
flag, ierr ) BIND(C,name="ompi_win_dup_fn_f")
132+
flag, ierr )
133133
use mpi_f08_types
134134
implicit none
135135
type(MPI_Win) :: window
@@ -140,7 +140,7 @@ interface
140140
end subroutine MPI_WIN_DUP_FN
141141

142142
subroutine MPI_WIN_NULL_DELETE_FN( window, win_keyval, attribute_val_out, &
143-
extra_state, ierr ) BIND(C,name="ompi_win_null_delete_fn_f")
143+
extra_state, ierr )
144144
use mpi_f08_types
145145
implicit none
146146
type(MPI_Win) :: window

ompi/mpi/fortran/use-mpi-f08/mpi-f08-interfaces-callbacks.F90

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
33
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
44
! All rights reserved.
5-
! Copyright (c) 2015 Research Organization for Information Science
5+
! Copyright (c) 2015-2016 Research Organization for Information Science
66
! and Technology (RIST). All rights reserved.
77
! $COPYRIGHT$
88

@@ -66,7 +66,7 @@ SUBROUTINE MPI_User_function(invec, inoutvec, len, datatype)
6666

6767
OMPI_ABSTRACT INTERFACE
6868
SUBROUTINE MPI_Comm_copy_attr_function(oldcomm,comm_keyval,extra_state, &
69-
attribute_val_in,attribute_val_out,flag,ierror) BIND(C)
69+
attribute_val_in,attribute_val_out,flag,ierror)
7070
USE mpi_f08_types
7171
IMPLICIT NONE
7272
TYPE(MPI_Comm) :: oldcomm
@@ -78,7 +78,7 @@ SUBROUTINE MPI_Comm_copy_attr_function(oldcomm,comm_keyval,extra_state, &
7878

7979
OMPI_ABSTRACT INTERFACE
8080
SUBROUTINE MPI_Comm_delete_attr_function(comm,comm_keyval, &
81-
attribute_val, extra_state, ierror) BIND(C)
81+
attribute_val, extra_state, ierror)
8282
USE mpi_f08_types
8383
IMPLICIT NONE
8484
TYPE(MPI_Comm) :: comm
@@ -89,7 +89,7 @@ SUBROUTINE MPI_Comm_delete_attr_function(comm,comm_keyval, &
8989

9090
OMPI_ABSTRACT INTERFACE
9191
SUBROUTINE MPI_Win_copy_attr_function(oldwin,win_keyval,extra_state, &
92-
attribute_val_in,attribute_val_out,flag,ierror) BIND(C)
92+
attribute_val_in,attribute_val_out,flag,ierror)
9393
USE mpi_f08_types
9494
IMPLICIT NONE
9595
TYPE(MPI_Win) :: oldwin
@@ -101,7 +101,7 @@ SUBROUTINE MPI_Win_copy_attr_function(oldwin,win_keyval,extra_state, &
101101

102102
OMPI_ABSTRACT INTERFACE
103103
SUBROUTINE MPI_Win_delete_attr_function(win,win_keyval,attribute_val, &
104-
extra_state,ierror) BIND(C)
104+
extra_state,ierror)
105105
USE mpi_f08_types
106106
IMPLICIT NONE
107107
TYPE(MPI_Win) :: win
@@ -112,7 +112,7 @@ SUBROUTINE MPI_Win_delete_attr_function(win,win_keyval,attribute_val, &
112112

113113
OMPI_ABSTRACT INTERFACE
114114
SUBROUTINE MPI_Type_copy_attr_function(oldtype,type_keyval,extra_state, &
115-
attribute_val_in,attribute_val_out,flag,ierror) BIND(C)
115+
attribute_val_in,attribute_val_out,flag,ierror)
116116
USE mpi_f08_types
117117
IMPLICIT NONE
118118
TYPE(MPI_Datatype) :: oldtype
@@ -124,7 +124,7 @@ SUBROUTINE MPI_Type_copy_attr_function(oldtype,type_keyval,extra_state, &
124124

125125
OMPI_ABSTRACT INTERFACE
126126
SUBROUTINE MPI_Type_delete_attr_function(datatype,type_keyval, &
127-
attribute_val,extra_state,ierror) BIND(C)
127+
attribute_val,extra_state,ierror)
128128
USE mpi_f08_types
129129
IMPLICIT NONE
130130
TYPE(MPI_Datatype) :: datatype

0 commit comments

Comments
 (0)