summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/inquire_14.f90
blob: edc9bf388a409002d5c814b983bb9a00adcd2c24 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { 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