[Bug fortran/71066] New: ICE in set_loop_bounds, at fortran/trans-array.c:4680

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

            Bug ID: 71066
           Summary: ICE in set_loop_bounds, at fortran/trans-array.c:4680
           Product: gcc
           Version: 6.1.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

This first example is partially related to pr50410 :

$ cat z1.f90
program p
   type t
      real, allocatable :: a(:,:)
   end type
   type(t), pointer :: x
   data x%a / 1.0 /
end

$ gfortran-6 z1.f90
internal compiler error: in set_loop_bounds, at fortran/trans-array.c:4680

---

Another situation :

$ cat z3.f90
program p
   real :: a(2,2)[*]
   data a /4*0.0/
end

$ gfortran-6 -fcoarray=single z3.f90
$ gfortran-6 -fcoarray=lib z3.f90
internal compiler error: in set_loop_bounds, at fortran/trans-array.c:4680