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!
7type :: t
8  integer :: i
9end type t
10
11type t2
12  sequence
13  class(t), pointer :: x ! { dg-error "Polymorphic component x at .1. in SEQUENCE or BIND" }
14end type t2
15
16type, bind(C):: t3
17  class(t), pointer :: y
18  ! { dg-error "Polymorphic component y at .1. in SEQUENCE or BIND" "" { target *-*-* } 17 }
19end type t3
20end
21