ends_with Function

public function ends_with(str, suffix)

Check if string ends with suffix

Arguments

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

Return Value logical


Called by

proc~~ends_with~~CalledByGraph proc~ends_with ends_with program~main main program~main->proc~ends_with

Variables

Type Visibility Attributes Name Initial
integer, private :: str_len
integer, private :: suffix_len

Source Code

   logical function ends_with(str, suffix)
      !! Check if string ends with suffix
      character(len=*), intent(in) :: str, suffix
      integer :: str_len, suffix_len

      str_len = len_trim(str)
      suffix_len = len_trim(suffix)

      if (suffix_len > str_len) then
         ends_with = .false.
         return
      end if

      ends_with = (str(str_len - suffix_len + 1:str_len) == suffix)
   end function ends_with