get_working_dir Subroutine

subroutine get_working_dir(settings, working_dir_)

Save access to working directory in settings, in case setting have not been allocated

Arguments

Type IntentOptional Attributes Name
class(fpm_cmd_settings), intent(in), optional :: settings
character(len=:), intent(out), allocatable :: working_dir_

Source Code

    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