! { dg-do compile } ! PR fortran/93337 - ICE in gfc_dt_upper_string, at fortran/module.c:441 program p type t character(:), allocatable :: a end type t class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" } x = x ! { dg-error "must not be polymorphic in intrinsic assignment" } end