https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99345
Martin Liška <marxin at gcc dot gnu.org> 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ška <marxin at gcc dot gnu.org> ---
I've reduced that to:
$ cat x.f90
MODULE kinds
INTEGER, PARAMETER :: DP = 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 = 1, nq
CALL calc_upper_fan(iq, selfen_upfan)
ENDDO
DO ik = 1, nk
ENDDO
CONTAINS
SUBROUTINE calc_upper_fan(iq, selfen_upfan)
COMPLEX(DP) selfen_upfan(nk)
INTEGER recl
INQUIRE(IOLENGTH=recl) ENDDO
END
END
$ 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 <https://gcc.gnu.org/bugs/> for instructions.
Started with r11-2578-g27eac9ee6137a6b5.
