1! { dg-do compile }
2! { dg-options "-Wc-binding-type" }
3module bind_c_implicit_vars
4
5bind(c) :: j ! { dg-warning "may not be C interoperable" }
6
7contains
8  subroutine sub0(i) bind(c) ! { dg-warning "may not be C interoperable" }
9    i = 0
10  end subroutine sub0
11end module bind_c_implicit_vars
12