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 10BE03858C74; Mon, 20 Mar 2023 22:30:22 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 10BE03858C74
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1679351422;
	bh=3bu9RgNOeSLXhH/FDxEWlIQPk/3cvDrMeCM1xlQHC0k=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=O7yJ49o1RcT+eHi9Qj9qhHKFkF6KK2W545bsU5ChPFvT/UtaG5m7uG59LJW7MOhMb
	 bTl6Qav+bJOHDje5pACvfs8pNKtjC4HxYiDTPSmQVx5Gpv5Hq8k3mhMWqKkmyl2MBQ
	 E6+vOZPaWk8IBGN/t8Nc8iX2SCUvmNSJ85KKiDKQ=
From: "juergen.reuter at desy dot de" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/109209] [13 regression] erroneous error on assignment
 of alloctables
Date: Mon, 20 Mar 2023 22:30: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: 13.0
X-Bugzilla-Keywords: rejects-valid
X-Bugzilla-Severity: normal
X-Bugzilla-Who: juergen.reuter at desy dot de
X-Bugzilla-Status: NEW
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P4
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: 13.0
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-109209-4-bUb3vUbbpH@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-109209-4@http.gcc.gnu.org/bugzilla/>
References: <bug-109209-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=3D109209

--- Comment #16 from J=C3=BCrgen Reuter <juergen.reuter at desy dot de> ---
(In reply to Paul Thomas from comment #14)
> For the record, the fix is:
>=20
> diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
> index 1d973d12ff1..1a03e458d99 100644
> --- a/gcc/fortran/resolve.cc
> +++ b/gcc/fortran/resolve.cc
> @@ -11760,6 +11760,7 @@ generate_component_assignments (gfc_code **code,
> gfc_namespace *ns)
>          of all kinds and allocatable components.  */
>        if (!gfc_bt_struct (comp1->ts.type)
>           || comp1->attr.pointer
> +         || comp1->attr.allocatable
>           || comp1->attr.proc_pointer_comp
>           || comp1->attr.class_pointer
>           || comp1->attr.proc_pointer)

I confirm that all of our code compiles again with this fix, and all our te=
sts
pass. Thanks for the quick action, Paul, and also for the stamina to tackle=
 the
finalization!=