Plugins: Add label-text.h to CPPLIB_H so it will be installed [PR115288]

[official-gcc.git] / gcc / testsuite / gfortran.dg / do_check_17.f90

! { 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