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