[Bug fortran/92960] ICE tree check: expected tree that contains 'decl minimal' structure, have 'component_ref' in add_decl_as_local, at fortran/trans-decl.c:261

[Bug fortran/92960] ICE tree check: expected tree that contains 'decl minimal' structure, have 'component_ref' in add_decl_as_local, at fortran/trans-decl.c:261

[pault at gcc dot gnu.org]

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

Paul Thomas <pault at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|---                         |FIXED

--- Comment #2 from Paul Thomas <pault at gcc dot gnu.org> ---
Fixed on 12-branch and mainline. I will add the testcase below, when the
current patch for some of PR87477 is committed.

Thanks

Paul

! { dg-do-run }
!
! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
!
program p
   type t(n)
      integer, len :: n
      character(n) :: c
   end type
   type(t(:)), allocatable :: z
   allocate (t(7) :: z)
   z%c = "1234567"
   associate (y => z%c)
       if (y .ne. "1234567") stop 1
       if (len (y) .ne. 7) stop 2
   end associate
   deallocate (z)
end