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

Уникальные имена:

См. также: