[Bug fortran/99345] [11 Regression] ICE in doloop_contained_procedure_code, at fortran/frontend-passes.c:2464 since r11-2578-g27eac9ee6137a6b5

[marxin at gcc dot gnu.org via Gcc-bugs]

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.