has_suffix Function

public pure function has_suffix(s, suffix)

文字列が指定した接尾辞で終わるかを判定する。

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: s
character(len=*), intent(in) :: suffix

Return Value logical


Called by

proc~~has_suffix~~CalledByGraph proc~has_suffix has_suffix proc~load_app_config load_app_config proc~load_app_config->proc~has_suffix proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~load_app_config program~main main program~main->proc~load_or_init_run_state

Source Code

  pure logical function has_suffix(s, suffix)
    character(len=*), intent(in) :: s
    character(len=*), intent(in) :: suffix
    integer :: ls, lf

    ls = len_trim(s)
    lf = len_trim(suffix)
    if (lf > ls) then
      has_suffix = .false.
    else
      has_suffix = (s(ls - lf + 1:ls) == suffix(1:lf))
    end if
  end function has_suffix