[Bug fortran/103508] ICE in gfc_find_symtree, at fortran/symbol.c:2979

[gscfq--- via Gcc-bugs]

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

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

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

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

This is the working version :

$ cat z2.f90
program p
   type t(n)
      integer, len :: n = 1
      character(n) :: c
   end type
   block
      block
         type(t(3)) :: x
         x%c = 'abc'
         print *, len(x%c)
      end block
   end block
end