gcc/testsuite/gfortran.dg/bind_c_dts_4.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-Wc-binding-type" }
   3 module test
   4 use iso_c_binding, only: c_int
   5     type, bind(c) ::  foo
   6       integer :: p ! { dg-warning "may not be C interoperable" }
   7     end type
   8     type(foo), bind(c) :: cp
   9 end module test