9.4 ACCESS — Проверяет режимы доступа к файлам

Описание:

ACCESS(NAME, MODE) проверяет, существует ли файл NAME, доступен ли он для чтения, записи или выполнения. За исключением проверки выполнения, ACCESS можно заменить на INQUIRE Fortran 95.

Стандарт:

Расширение GNU

Класс:

Функция запроса

Синтаксис:

RESULT = ACCESS(NAME, MODE)

Аргументы:

NAME	Скаляр CHARACTER стандартного типа с именем файла. Конечные пробелы игнорируются, если не указан символ achar(0), в этом случае все символы до, но не включая achar(0), используются как имя файла.
MODE	Скаляр CHARACTER стандартного типа с режимом доступа к файлу. Может быть любой комбинацией "r" (чтение), "w" (запись) и "x" (выполнение) или " " для проверки существования.

Значение возвращаемого значения:

Возвращает скаляр INTEGER, который равен 0, если файл доступен в заданном режиме; в противном случае или если для MODE был задан недопустимый аргумент, возвращается значение 1.

Пример:

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