[Bug fortran/72770] ICE in make_ssa_name_fn, at tree-ssanames.c:263

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=72770

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Compiles and works without character branch (type is).


$ cat z3.f90
program p
   type t
      class(*), allocatable :: q(:)
   end type
   type(t) :: z
   integer :: a(3) = [1, 2, 3]
   real :: c(3) = [1.0, 2.0, 3.0]
   allocate (z%q(3), source=c)
   call s
contains
   subroutine s
      select type (x => z%q)
      type is (integer)
         if ( any(x/=a) )   call abort
      type is (real)
         if ( any(x/=c) )   call abort
      end select
   end
end


$ gfortran-7-20160731 -O2 z3.f90
$ a.out