gcc/testsuite/gfortran.dg/class_30.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/46244 (comments 7 to 9)
   4 !
   5 ! gfortran accepted CLASS in bind(C) and SEQUENCE types
   6 !
   7 type :: t
   8   integer :: i
   9 end type t
  10
  11 type t2
  12   sequence
  13   class(t), pointer :: x ! { dg-error "Polymorphic component x at .1. in SEQUENCE or BIND" }
  14 end type t2
  15
  16 type, bind(C):: t3
  17   class(t), pointer :: y
  18   ! { dg-warning "may not be C interoperable" "" { target *-*-* } 17 }
  19   ! { dg-error "Polymorphic component y at .1. in SEQUENCE or BIND" "" { target *-*-* } 17 }
  20 end type t3
  21 end