From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 7D57B386F434; Fri, 5 Mar 2021 09:53:02 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 7D57B386F434 From: "marxin at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464 since r11-2578-g27eac9ee6137a6b5 Date: Fri, 05 Mar 2021 09:53:02 +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-valid-code X-Bugzilla-Severity: normal X-Bugzilla-Who: marxin at gcc dot gnu.org 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: 11.0 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: bug_status cc short_desc 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, 05 Mar 2021 09:53:02 -0000 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D99345 Martin Li=C5=A1ka changed: What |Removed |Added ---------------------------------------------------------------------------- Status|WAITING |NEW CC| |tkoenig at gcc dot gnu.org Summary|[11 Regression] ICE in |[11 Regression] ICE in |doloop_contained_procedure_ |doloop_contained_procedure_ |code, at |code, at |fortran/frontend-passes.c:2 |fortran/frontend-passes.c:2 |464 |464 since | |r11-2578-g27eac9ee6137a6b5 --- Comment #9 from Martin Li=C5=A1ka --- I've reduced that to: $ cat x.f90 MODULE kinds INTEGER, PARAMETER :: DP =3D selected_real_kind(14,200) CONTAINS SUBROUTINE print_kind_info (stdout) INTEGER, INTENT(IN) :: stdout WRITE(stdout,'(/,T2,A,T78,A,2(/,T2,A,T75,I6),3(/,T2,A,T67,E14.8))') & kind('C') END SUBROUTINE print_kind_info END MODULE kinds USE kinds COMPLEX(DP), ALLOCATABLE :: selfen_upfan(:) DO iq =3D 1, nq CALL calc_upper_fan(iq, selfen_upfan) ENDDO=20=20 DO ik =3D 1, nk ENDDO CONTAINS SUBROUTINE calc_upper_fan(iq, selfen_upfan) COMPLEX(DP) selfen_upfan(nk) INTEGER recl INQUIRE(IOLENGTH=3Drecl) ENDDO END=20=20 END=20 $ gfortran x.f90 -c f951: internal compiler error: in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464 0x656727 doloop_contained_procedure_code /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:2464 0x9f7d87 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int (*)(gfc_expr**, int*, void*), void*) /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5299 0x9f7eef gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int (*)(gfc_expr**, int*, void*), void*) /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5623 0x9f98ac doloop_code /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:2620 0x9f7d87 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int (*)(gfc_expr**, int*, void*), void*) /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5299 0x9f7eef gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int (*)(gfc_expr**, int*, void*), void*) /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:5623 0x9f8f3f doloop_warn /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:3052 0x9f94af gfc_run_passes(gfc_namespace*) /home/marxin/Programming/gcc/gcc/fortran/frontend-passes.c:156 0x90917e gfc_resolve(gfc_namespace*) /home/marxin/Programming/gcc/gcc/fortran/resolve.c:17428 0x90917e gfc_resolve(gfc_namespace*) /home/marxin/Programming/gcc/gcc/fortran/resolve.c:17401 0x8fabab resolve_all_program_units /home/marxin/Programming/gcc/gcc/fortran/parse.c:6290 0x8fabab gfc_parse_file() /home/marxin/Programming/gcc/gcc/fortran/parse.c:6542 0x94ec0f gfc_be_parse_file /home/marxin/Programming/gcc/gcc/fortran/f95-lang.c:212 Please submit a full bug report, with preprocessed source if appropriate. Please include the complete backtrace with any bug report. See for instructions. Started with r11-2578-g27eac9ee6137a6b5.=