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 non-zero error code otherwise.
|
PROGRAM test_getcwd
CHARACTER(len=255) :: cwd
CALL getcwd(cwd)
WRITE(*,*) TRIM(cwd)
END PROGRAM