gcc/testsuite/gfortran.dg/inquire_14.f90

   1 ! { dg-do compile }
   2 ! PR47583 Inquire affected by previous read.
   3 subroutine input(indat)
   4    real indat(:)
   5    read(*,*) indat
   6 end subroutine input
   7
   8 subroutine abc(sizedat)
   9    real, intent(in) :: sizedat(:)
  10    integer :: rl
  11    inquire(iolength=rl) sizedat
  12    write(*,*) rl
  13 end subroutine abc