is_char_class_tree_node Function

private pure function is_char_class_tree_node(node) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
type(tree_node_t),	intent(in)			::	node

Return Value logical

Source Code

   pure function is_char_class_tree_node(node) result(res)
      implicit none
      type(tree_node_t), intent(in) :: node
      logical :: res

      res = .false.
      if (node%op == op_char) res = .true.

   end function is_char_class_tree_node