! { dg-do compile } ! PR fortran/65173 program p type t character(*) :: x+1 ! { dg-error "error in data declaration" } end type ! { dg-error "needs to be a constant specification" "" { target "*-*-*" } .-1 } end