! { dg-do compile } ! PR fortran/65173 program p type t end type type, extends(t) :: t2 character x 'x' ! { dg-error "error in data declaration" } end type end