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