9.124 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