GETCWD — Get current working directory ¶Get current working directory.
This intrinsic is provided in both subroutine and function forms; however, only one form can be used in any given program unit.
GNU extension
Subroutine, function
| CALL GETCWD(C [, STATUS]) | 
| STATUS = GETCWD(C) | 
| C | The type shall be CHARACTERand of default kind. | 
| 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