is_ident_char Function

private pure function is_ident_char(c) result(yes)

True for identifier characters (alnum + underscore).

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: c

Return Value logical


Called by

proc~~is_ident_char~~CalledByGraph proc~is_ident_char is_ident_char proc~read_group_name read_group_name proc~read_group_name->proc~is_ident_char proc~parse_from_lines parse_from_lines proc~parse_from_lines->proc~read_group_name proc~parse_file parse_file proc~parse_file->proc~parse_from_lines proc~schema_parse_lines nml_schema_t%schema_parse_lines proc~schema_parse_lines->proc~parse_from_lines proc~read_config_from_string_impl read_config_from_string_impl proc~read_config_from_string_impl->proc~schema_parse_lines proc~schema_parse nml_schema_t%schema_parse proc~schema_parse->proc~parse_file proc~read_config_from_string read_config_from_string proc~read_config_from_string->proc~read_config_from_string_impl proc~read_config_impl read_config_impl proc~read_config_impl->proc~schema_parse

Variables

Type Visibility Attributes Name Initial
integer, private :: ic

Source Code

   pure function is_ident_char(c) result(yes)
      !! True for identifier characters (alnum + underscore).
      character, intent(in) :: c
      logical :: yes
      integer :: ic
      ic = iachar(c)
      yes = (ic >= iachar("a") .and. ic <= iachar("z")) .or. &
            (ic >= iachar("A") .and. ic <= iachar("Z")) .or. &
            (ic >= iachar("0") .and. ic <= iachar("9")) .or. &
            (c == "_")
   end function is_ident_char