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