CHDIR (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_chdir CHARACTER(len=255) :: path CALL getcwd(path) WRITE(,) TRIM(path) CALL chdir("/tmp") CALL getcwd(path) WRITE(,) TRIM(path) END PROGRAM