[Bug fortran/58618] ICE with character substring and ASSOCIATE

[vladimir.fuka at gmail dot com]

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

Vladimir Fuka <vladimir.fuka at gmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Version|4.8.0                       |7.1.1

--- Comment #3 from Vladimir Fuka <vladimir.fuka at gmail dot com> ---
The wrong code is still in 7.1.1:

    character(1) :: s(1)
    s = "a"
    print *, s(1)(1:1) 
    associate (x=>s(1)(1:1))
      print *, x
    end associate
  end


> gfortran-7 pr58618.f90 
> ./a.out
 a 
 �