9.123 GETCWD — Получить текущий рабочий каталог

Описание:

Получение текущего рабочего каталога.

Этот встроенный элемент доступен как в форме подпрограммы, так и в форме функции; однако, только одна форма может быть использована в любом заданном программном блоке.

Стандарт:

Расширение GNU

Класс:

Подпрограмма, функция

Синтаксис:

CALL GETCWD(C [, STATUS])

STATUS = GETCWD(C)

Аргументы:

C	Тип должен быть CHARACTER и по умолчанию.
STATUS	(Необязательно) флаг состояния. Возвращает 0 при успехе, в противном случае — специфичный для системы ненулевой код ошибки.

Пример:

PROGRAM test_getcwd
  CHARACTER(len=255) :: cwd
  CALL getcwd(cwd)
  WRITE(*,*) TRIM(cwd)
END PROGRAM

См. также:

CHDIR