Save access to working directory in settings, in case setting have not been allocated
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(fpm_cmd_settings), | intent(in), | optional | :: | settings | ||
character(len=:), | intent(out), | allocatable | :: | working_dir_ |
subroutine get_working_dir(settings, working_dir_)
class(fpm_cmd_settings), optional, intent(in) :: settings
character(len=:), allocatable, intent(out) :: working_dir_
if (present(settings)) then
working_dir_ = settings%working_dir
end if
end subroutine get_working_dir