any_of_kind Function

private pure function any_of_kind(this, kind) result(r)

Whether any declared entry has this kind.

Arguments

Type IntentOptional Attributes Name
class(cli_t), intent(in) :: this
integer(kind=default_int), intent(in) :: kind

Return Value logical


Called by

proc~~any_of_kind~~CalledByGraph proc~any_of_kind any_of_kind proc~cli_help_text cli_t%cli_help_text proc~cli_help_text->proc~any_of_kind

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: i

Source Code

   pure function any_of_kind(this, kind) result(r)
      !! Whether any declared entry has this kind.
      class(cli_t), intent(in) :: this
      integer(default_int), intent(in) :: kind
      logical :: r

      integer(default_int) :: i

      r = .false.
      do i = 1_default_int, this%count
         if (this%entries(i)%kind == kind) then
            r = .true.
            return
         end if
      end do
   end function any_of_kind