2 ! { dg-options "-Wc-binding-type" }
4 use, intrinsic :: iso_c_binding, only: c_int
7 ! warning for my_param possibly not being C interoperable
8 subroutine my_c_sub(my_param) bind(c) ! { dg-warning "may not be C interoperable" }
9 integer, value :: my_param
10 end subroutine my_c_sub
12 ! warning for my_c_func possibly not being a C interoperable kind
13 ! warning for my_param possibly not being C interoperable
14 ! error message truncated to provide an expression that both warnings
16 function my_c_func(my_param) bind(c) ! { dg-warning "may not be" }
17 integer, value :: my_param
19 end function my_c_func
23 ! warning for my_param possibly not being C interoperable
24 subroutine my_f03_sub(my_param) bind(c) ! { dg-warning "may not be" }
25 integer, value :: my_param
26 end subroutine my_f03_sub
28 ! warning for my_f03_func possibly not being a C interoperable kind
29 ! warning for my_param possibly not being C interoperable
30 ! error message truncated to provide an expression that both warnings
32 function my_f03_func(my_param) bind(c) ! { dg-warning "may not be" }
33 integer, value :: my_param
34 integer :: my_f03_func
36 end function my_f03_func
38 end module bind_c_procs