5 inquire (file='inquire_9 file that should not exist', exist=l)
8 inquire (unit=-16, exist=l)
10 open (unit=16, file='inquire_9.tst')
11 write (unit=16, fmt='(a)') 'Test'
13 inquire (unit=16, exist=l)
14 if (.not.l) call abort
16 inquire (file='inquire_9.tst', exist=l)
17 if (.not.l) call abort
20 inquire (file='inquire_9.tst', exist=l)
21 if (.not.l) call abort
22 open (unit=16, file='inquire_9.tst')
23 close (unit=16, status='delete')