blob: 9829688225bc0b03c99cf73813218f19c6dad6a9 [file] [log] [blame]
! { dg-do run }
! PR84412 Wrong "Inquire statement identifies an internal file" error
program bug
implicit none
integer :: i
character(len=1) :: s
write (s,'(i1)') 0
open(newUnit=i,file='inquire_18.txt',status='unknown')
inquire(unit=i)
close(i, status="delete")
end program bug