! { dg-do compile }
! PR 99345 - this used to cause an ICE.
! Original test case by Matthias Klose
program main
  implicit none
  integer :: iq,nq,recl
  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 SUBROUTINE calc_upper_fan
END