[Bug fortran/70870] Segmentation violation in gfc_assign_data_value

["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=70870

--- Comment #2 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
A variant that aborts with this message directly :

$ gfortran-6 z1.f90
f951: internal compiler error: in gfc_assign_data_value, at fortran/data.c:449

$ cat z1.f90
program p
   type t
      integer :: n
   end type
   type(t), pointer :: z => null()
   data z%n / 3 /
   print *, z%n
end

---

A minimal change of z1.f90 immediately points to pr50410 :

$ cat z2.f90
program p
   type t
      integer :: n
   end type
   type(t), pointer :: z
   data z%n / 3 /
   print *, z%n
end

$ gfortran-6 z2.f90
f951: internal compiler error: in record_reference, at cgraphbuild.c:64