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