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