gcc/testsuite/gfortran.dg/pr93337.f90


1
2
3
4
5
6
7
8
9
10

! { 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