[Bug fortran/71066] [7/8/9 Regression] ICE in set_loop_bounds, at fortran/trans-array.c:4680

[tkoenig at gcc dot gnu.org]

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

--- Comment #10 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Removing the assert

gcc_assert (loop->dimen == 1);

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

just hits a check later on:

d.f90:1:0:

    1 | program p
      | 
interner Compiler-Fehler: in trans_array_constructor, bei
fortran/trans-array.c:2556
0x616351 trans_array_constructor
        ../../trunk/gcc/fortran/trans-array.c:2556
0x616351 gfc_add_loop_ss_code
        ../../trunk/gcc/fortran/trans-array.c:2869

So, the setup of the loop is wrong earlier.