1! { dg-do compile } 2module stuff 3 implicit none 4 type, bind(C) :: junk ! { dg-warning "may be inaccessible by the C companion" } 5 ! Empty! 6 end type junk 7end module stuff 8