[Bug fortran/91651] ICE in gfc_trans_assignment_1, at fortran/trans-expr.c:11010

[gscfq@t-online.de]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code

--- Comment #1 from G. Steinmetz <gscfq@t-online.de> ---

Working variants :


$ cat z2.f90
program p
   integer :: z(2)
   z = index('100101', '10', [.false.,.true.])
   print *, z
end

$ gfortran-10-20190901 z2.f90 && ./a.out
           1           4


$ cat z3.f90           # scalar back
program p
   integer :: z(2)
   z = index('100101', '10', .false., kind=4)
   print *, z
end

$ gfortran-10-20190901 z3.f90 && ./a.out
           1           1