gcc/testsuite/gfortran.dg/pr95980.f90

   1 ! { dg-do compile }
   2 ! PR fortran/95980 - ICE in get_unique_type_string, at fortran/class.c:485
   3
   4 program p
   5   type t
   6   end type t
   7   class(t) :: x        ! { dg-error "must be dummy, allocatable or pointer" }
   8   select type (y => x)
   9   end select
  10 end