2011-02-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>

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

! { dg-do compile }
! PR47583 Inquire affected by previous read.
subroutine input(indat)
   real indat(:)
   read(*,*) indat
end subroutine input

subroutine abc(sizedat)
   real, intent(in) :: sizedat(:)
   integer :: rl
   inquire(iolength=rl) sizedat
   write(*,*) rl
end subroutine abc