From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
	id 086783858CDB; Wed, 29 Mar 2023 08:45:22 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 086783858CDB
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1680079522;
	bh=lCqq/7EUt18tj6cb22CYWma/T0nhTDIfgvJSk1l7Eso=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=EyK2kVqBXB82p6iDdhRbf1bZAYJ6VWdahQeES57JXvBZ6XPphvbnNSiRzYLpSvqg4
	 tDsxNxmqQefwNNpzqPwZlD+FQQC/P/HwpxvKLJMV+OA99QcyrzgOrea11XJqklK6gI
	 ysp+b2BZOPdL69iwz6jrqoX8qJ6Xf0RsKb8E8Jbw=
From: "pault at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [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
Date: Wed, 29 Mar 2023 08:45:20 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 10.0
X-Bugzilla-Keywords: ice-on-valid-code
X-Bugzilla-Severity: normal
X-Bugzilla-Who: pault at gcc dot gnu.org
X-Bugzilla-Status: RESOLVED
X-Bugzilla-Resolution: FIXED
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: bug_status resolution
Message-ID: <bug-92960-4-0A4hm9Lwtk@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-92960-4@http.gcc.gnu.org/bugzilla/>
References: <bug-92960-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
List-Id: <gcc-bugs.sourceware.org>

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

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 =3D "1234567"
   associate (y =3D> z%c)
       if (y .ne. "1234567") stop 1
       if (len (y) .ne. 7) stop 2
   end associate
   deallocate (z)
end=