[Bug fortran/85544] [6/7/8/9 Regression] ICE in gfc_conv_scalarized_array_ref, at fortran/trans-array.c:3385

["gscfq at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #3 from G. Steinmetz <gscfq@t-online.de> ---
For special case +-1 :

$ cat zz1.f90
program p
   integer, parameter :: na = -3, ne = 10
   integer :: i, a(na:ne), b(na:ne)
   a = [(i, i=na, ne)]
   b = [1**a]
end


$ gfortran-9-20180520 -c zz1.f90 -O2
zz1.f90:5:0:

    b = [1**a]

internal compiler error: in gfc_trans_array_constructor_subarray, at
fortran/trans-array.c:1633
0x75b1dc gfc_trans_array_constructor_subarray
        ../../gcc/fortran/trans-array.c:1633
0x75b1dc gfc_trans_array_constructor_value
        ../../gcc/fortran/trans-array.c:1762
0x75ba63 trans_array_constructor
        ../../gcc/fortran/trans-array.c:2543
0x75ba63 gfc_add_loop_ss_code
        ../../gcc/fortran/trans-array.c:2819
0x75c295 gfc_conv_loop_setup(gfc_loopinfo*, locus*)
        ../../gcc/fortran/trans-array.c:5110
0x78656c gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:10058
0x74aef7 trans_code
        ../../gcc/fortran/trans.c:1828
0x772219 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6507
0x7012a0 translate_all_program_units
        ../../gcc/fortran/parse.c:6121
0x7012a0 gfc_parse_file()
        ../../gcc/fortran/parse.c:6324
0x74809f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204