is_long Function

private pure function is_long(arg) result(r)

Whether arg is a --name form. A bare -- is not.

Arguments

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

Return Value logical


Called by

proc~~is_long~~CalledByGraph proc~is_long is_long proc~cli_parse_args cli_t%cli_parse_args proc~cli_parse_args->proc~is_long proc~cli_parse cli_t%cli_parse proc~cli_parse->proc~cli_parse_args

Source Code

   pure function is_long(arg) result(r)
      !! Whether `arg` is a `--name` form. A bare `--` is not.
      character(len=*), intent(in) :: arg
      logical :: r

      r = .false.
      if (len(arg) <= 2) return
      r = arg(1:2) == "--"
   end function is_long