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
|
