blob: 6cb7387a46a69fa40c37b8ea64b49d217e599fdd [file] [log] [blame]
! { dg-do compile }
! See PR fortran/36251.
module a
implicit none
integer :: i = 42
end module a
! Causes ICE
module b
use iso_c_binding
use a
implicit none
bind(c) :: a ! { dg-error "applied to" }
end module b
! Causes ICE
module d
use a
implicit none
bind(c) :: a ! { dg-error "applied to" }
end module d