chomp_char Function

private pure function chomp_char(string) result(chomped_string)

Remove trailing characters in set from string. Default character set variant where trailing whitespace is removed.

Arguments

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

Return Value character(len=:), allocatable


Called by

proc~~chomp_char~~CalledByGraph proc~chomp_char chomp_char interface~chomp chomp interface~chomp->proc~chomp_char proc~chomp_set_string_char chomp_set_string_char interface~chomp->proc~chomp_set_string_char proc~chomp_substring_char_string chomp_substring_char_string interface~chomp->proc~chomp_substring_char_string proc~chomp_substring_string_char chomp_substring_string_char interface~chomp->proc~chomp_substring_string_char proc~chomp_substring_string_string chomp_substring_string_string interface~chomp->proc~chomp_substring_string_string proc~chomp_set_string_char->interface~chomp proc~chomp_substring_char_string->interface~chomp proc~chomp_substring_string_char->interface~chomp proc~chomp_substring_string_string->interface~chomp

Variables

Type Visibility Attributes Name Initial
integer, private :: last

Source Code

   pure function chomp_char(string) result(chomped_string)
      character(len=*), intent(in) :: string
      character(len=:), allocatable :: chomped_string
      integer :: last

      last = verify(string, whitespace, back=.true.)
      chomped_string = string(1:last)
   end function chomp_char