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(C [, STATUS])
 | 
STATUS = GETCWD(C)
      | 
| C | The type shall be CHARACTER and 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