[Bug fortran/77693] ICE in rtl_for_decl_init, at dwarf2out.c:17378

[gerhard.steinmetz.fort...@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---

Some other variants :

$ cat z2.f90
program p
   complex, pointer :: a
   complex :: z
   data a /(1.,2.)/
   z = a
   print *, z
end

$ cat z3.f90
program p
   character, pointer :: a
   logical :: z
   data a /'a'/
   z = (a == 'a')
   print *, z
end

---

No ICE, but aborting at run time :

$ cat za4.f90
program p
   real, pointer :: a
   real :: z
   data a /1./
   z = a
   print *, z
end

$ cat za5.f90
program p
   integer, pointer :: a
   integer :: z
   data a /1/
   z = a
   print *, z
end

$ gfortran-7-20160918 -g -O2 za5.f90
$ a.out

Program received signal SIGSEGV: Segmentation fault - invalid memory reference.
#...