ACCESS — Checks file access modes#
-
ACCESS(NAME, MODE)#
ACCESS(NAME, MODE)
checks whether the fileNAME
exists, is readable, writable or executable. Except for the executable check,ACCESS
can be replaced by Fortran 95’sINQUIRE
.- Parameters
NAME – Scalar
CHARACTER
of default kind with the file name. Trailing blank are ignored unless the characterachar(0)
is present, then all characters up to and excludingachar(0)
are used as file name.MODE – Scalar
CHARACTER
of default kind with the file access mode, may be any concatenation of"r"
(readable),"w"
(writable) and"x"
(executable), or" "
to check for existence.
- Returns
Returns a scalar
INTEGER
, which is0
if the file is accessible in the given mode; otherwise or if an invalid argument has been given forMODE
the value1
is returned.
- Standard:
GNU extension
- Class:
Inquiry function
- Syntax:
RESULT = ACCESS(NAME, MODE)
- Example:
program access_test implicit none character(len=*), parameter :: file = 'test.dat' character(len=*), parameter :: file2 = 'test.dat '//achar(0) if(access(file,' ') == 0) print *, trim(file),' is exists' if(access(file,'r') == 0) print *, trim(file),' is readable' if(access(file,'w') == 0) print *, trim(file),' is writable' if(access(file,'x') == 0) print *, trim(file),' is executable' if(access(file2,'rwx') == 0) & print *, trim(file2),' is readable, writable and executable' end program access_test