gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03

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