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