13 lines
316 B
Fortran
13 lines
316 B
Fortran
! { dg-do compile }
|
|
module bind_c_implicit_vars
|
|
|
|
bind(c) :: j ! { dg-warning "may not be C interoperable" }
|
|
|
|
contains
|
|
subroutine sub0(i) bind(c) ! { dg-warning "may not be C interoperable" }
|
|
i = 0
|
|
end subroutine sub0
|
|
end module bind_c_implicit_vars
|
|
|
|
! { dg-final { cleanup-modules "bind_c_implicit_vars" } }
|