URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_14.f90] - Rev 694
Compare with Previous | Blame | View Log
! { 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