From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 666AC3870856; Fri, 8 Jan 2021 20:37:09 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 666AC3870856 From: "anlauf at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/66366] [OOP] ICE on invalid with non-allocatable CLASS variable Date: Fri, 08 Jan 2021 20:37:09 +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: 6.0 X-Bugzilla-Keywords: error-recovery, ice-on-invalid-code X-Bugzilla-Severity: normal X-Bugzilla-Who: anlauf at gcc dot gnu.org X-Bugzilla-Status: NEW X-Bugzilla-Resolution: X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: 8.5 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: cc 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 X-BeenThere: gcc-bugs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-bugs mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 08 Jan 2021 20:37:09 -0000 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D66366 anlauf at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |anlauf at gcc dot gnu.org --- Comment #11 from anlauf at gcc dot gnu.org --- (In reply to janus from comment #5) > The original problem in comment #0 is fixed with r242351. >=20 > The ICE on comment #2 is a separate issue and still persists. Adding an IMPLICIT NONE to comment#2, we get a strange error (rejects-valid= ). module sps implicit none type :: spsf end type spsf type :: h5 contains procedure :: c =3D> hC end type h5 contains subroutine hC(s) class(h5), intent(inout) :: s end subroutine hC subroutine frf() type(h5) :: spsf call spsf%c() end subroutine frf end module sps pr66366-c2.f90:3:14: 3 | type :: spsf | 1 Error: Symbol 'spsf' at (1) has no IMPLICIT type The error vanishes if the typebound procedure is removed from the type declaration and the corresponding typebound call. Maybe close this one and open a new one about typebound procedures (or merg= e)?=