From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 788CA3857C4E; Tue, 12 Apr 2022 17:22:03 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 788CA3857C4E From: "gscfq@t-online.de" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/105243] ICE in next_char, at fortran/io.cc:160 Date: Tue, 12 Apr 2022 17:22:03 +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: 12.0 X-Bugzilla-Keywords: ice-on-invalid-code X-Bugzilla-Severity: normal X-Bugzilla-Who: gscfq@t-online.de X-Bugzilla-Status: UNCONFIRMED 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: keywords 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: Tue, 12 Apr 2022 17:22:03 -0000 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D105243 G. Steinmetz changed: What |Removed |Added ---------------------------------------------------------------------------- Keywords| |ice-on-invalid-code --- Comment #1 from G. Steinmetz --- $ cat z2.f90 program p type t character(3) :: c =3D '(a)' end type class(t), parameter :: x =3D 1. print *, x%c end $ cat z3.f90 program p type t character(3) :: c =3D '(a)' end type class(t), parameter :: x =3D 1. call s(x%c) end $ gfortran-12-20220410 -c z2.f90 z2.f90:5:27: 5 | class(t), parameter :: x =3D 1. | 1 Error: CLASS variable 'x' at (1) cannot have the PARAMETER attribute z2.f90:5:29: 5 | class(t), parameter :: x =3D 1. | 1 Error: Cannot convert REAL(4) to CLASS() at (1) f951: internal compiler error: Segmentation fault 0xe7751f crash_signal ../../gcc/toplev.cc:322 0x734da3 free_expr0 ../../gcc/fortran/expr.cc:462 0x734e48 gfc_free_expr(gfc_expr*) ../../gcc/fortran/expr.cc:531 0x7cfd51 gfc_free_statement(gfc_code*) ../../gcc/fortran/st.cc:86 0x7cfef2 gfc_free_statements(gfc_code*) ../../gcc/fortran/st.cc:318 0x7cff14 gfc_free_statements(gfc_code*) ../../gcc/fortran/st.cc:317 0x7d6a24 gfc_free_namespace(gfc_namespace*&) ../../gcc/fortran/symbol.cc:4041 0x7d7159 gfc_symbol_done_2() ../../gcc/fortran/symbol.cc:4105 0x76e548 gfc_done_2() ../../gcc/fortran/misc.cc:382 0x798198 translate_all_program_units ../../gcc/fortran/parse.cc:6688 0x798198 gfc_parse_file() ../../gcc/fortran/parse.cc:6956 0x7e626f gfc_be_parse_file ../../gcc/fortran/f95-lang.cc:216=