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

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

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99345

--- Comment #10 from anlauf at gcc dot gnu.org ---
Further reduced:

  DO iq = 1, nq
    CALL calc_upper_fan (iq)
  ENDDO  
CONTAINS
  SUBROUTINE calc_upper_fan (iq)
    INTEGER :: iq
    INTEGER :: recl
    INQUIRE(IOLENGTH=recl) iq
  END
END