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