get_literal Function

private pure function get_literal(tree) result(literal)

Wrapping function to retrieve literals: all, prefix, suffix, factor.

Arguments

Type	Intent	Optional	Attributes		Name
type(tree_t),	intent(in)			::	tree

Return Value type(literal_t)

Source Code

   pure function get_literal(tree) result(literal)
      implicit none
      type(tree_t), intent(in) :: tree
      type(literal_t) :: literal

      ! Recursive procedure calls start here.
      call best_factor(tree%nodes, tree%top, literal)

   end function get_literal