25 lines
612 B
Fortran
25 lines
612 B
Fortran
! PR fortran/24774
|
|
! { dg-do run }
|
|
logical :: l
|
|
l = .true.
|
|
inquire (file='inquire_9 file that should not exist', exist=l)
|
|
if (l) call abort
|
|
l = .true.
|
|
inquire (unit=-16, exist=l)
|
|
if (l) call abort
|
|
open (unit=16, file='inquire_9.tst')
|
|
write (unit=16, fmt='(a)') 'Test'
|
|
l = .false.
|
|
inquire (unit=16, exist=l)
|
|
if (.not.l) call abort
|
|
l = .false.
|
|
inquire (file='inquire_9.tst', exist=l)
|
|
if (.not.l) call abort
|
|
close (unit=16)
|
|
l = .false.
|
|
inquire (file='inquire_9.tst', exist=l)
|
|
if (.not.l) call abort
|
|
open (unit=16, file='inquire_9.tst')
|
|
close (unit=16, status='delete')
|
|
end
|