From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id DA6773858C78; Wed, 28 Feb 2024 01:13:43 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org DA6773858C78 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1709082823; bh=NxoamV7xstjk5DK2OKp//dlmuNPHaaM7VAbcQi7Y/ZY=; h=From:To:Subject:Date:In-Reply-To:References:From; b=Uu+ECzB2PUDOSbS0w7cZFcntOwC58w38VLGzxuAwJ4eysUgqNq0em+hIvIX14eFwI nmvznjMFJBdDzzA1pNGc2Os4Btl18/dfsrI/usvY+quJhsxs+7piFYjiW4wHkvZ1LV Sv9pMxtWWuQgZVgGXxOJzLGFnsbSm+IGes+f27RE= From: "kargl at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/99837] ICE in parse_associate, at fortran/parse.c:4780 Date: Wed, 28 Feb 2024 01:13:41 +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: 11.0 X-Bugzilla-Keywords: ice-on-invalid-code X-Bugzilla-Severity: normal X-Bugzilla-Who: kargl at gcc dot gnu.org X-Bugzilla-Status: WAITING X-Bugzilla-Resolution: 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 cc cf_reconfirmed_on everconfirmed Message-ID: In-Reply-To: References: 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: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D99837 kargl at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |WAITING CC| |kargl at gcc dot gnu.org Last reconfirmed| |2024-02-28 Ever confirmed|0 |1 --- Comment #2 from kargl at gcc dot gnu.org --- (In reply to G. Steinmetz from comment #0) > Follow-up of pr88357, affects versions down to at least r5. > With a missing attribute allocatable or pointer : >=20 > $ cat z1.f90 > program p > type t > integer, allocatable :: a(:) > end type > class(t) :: x[:] > associate (y =3D> x) > end associate > end This now gives=20 % gfcx -o z -fcoarray=3Dsingle a.f90 a.f90:6:19: 6 | class(t) :: x[:] | 1 Error: Coarray variable 'x' at (1) shall not have codimensions with deferred shape > $ cat z2.f90 > program p > type t > integer, allocatable :: a(:) > end type > class(t) :: x[*] > associate (y =3D> x) > end associate > end This gives % gfcx -o z -fcoarray=3Dsingle a.f90 a.f90:6:19: 6 | class(t) :: x[*] | 1 Error: CLASS variable 'x' at (1) must be dummy, allocatable or pointer=