[Bug fortran/93498] ICE in gfc_resolve_findloc, at fortran/iresolve.c:1844

[gscfq@t-online.de]

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

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

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

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


These variants run smoothly :


$ cat z0a.f90
program p
   print *, findloc(['a', 'b', 'c'], 4_'b')
   print *, findloc(['a', 'b', 'c'], 4_'b', 1)
end


$ cat z0b.f90
program p
   print *, findloc([4_'a', 4_'b', 4_'c'], 'b')
   print *, findloc([4_'a', 4_'b', 4_'c'], 'b', 1)
end


$ cat z1c.f90
program p
   character(len=1, kind=4) :: x(3) = [4_'a', 4_'b', 4_'c']
   character(len=1, kind=4) :: y = 4_'b'
   print *, findloc(x, y)
   print *, findloc(x, y, 1)
end


$ gfortran-10-20200126 z0a.f90 && ./a.out
           2
           2
$