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
)
16 inquire (file
='inquire_9.tst', exist
=l
)
20 inquire (file
='inquire_9.tst', exist
=l
)
22 open (unit
=16, file
='inquire_9.tst')
23 close (unit
=16, status
='delete')