blob: 02b8993de3879b862523fd4622cae2e126e87077 [file] [log] [blame]
! { 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