8.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

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/ACCESS.html