Next: GETENV, Previous: GET_COMMAND_ARGUMENT, Up: Intrinsic Procedures
GETCWD
— Get current working directoryThis intrinsic is provided in both subroutine and function forms; however,
only one form can be used in any given program unit.
CALL GETCWD(CWD [, STATUS])
CWD | The type shall be CHARACTER(*) .
|
STATUS | (Optional) status flag. Returns 0 on success,
a system specific and nonzero error code otherwise.
|
PROGRAM test_getcwd CHARACTER(len=255) :: cwd CALL getcwd(cwd) WRITE(*,*) TRIM(cwd) END PROGRAM