gcc/testsuite/gfortran.dg/bind_c_implicit_vars.f03

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