get_prefix_literal Function

public pure function get_prefix_literal(tree) result(chara)

Arguments

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

Return Value character(len=:), allocatable


Source Code

   pure function get_prefix_literal(tree) result(chara)
      implicit none
      type(tree_t), intent(in) :: tree
      character(:), allocatable :: chara
      logical :: each_res

      chara = ''

      call get_prefix_literal_internal(tree%nodes, tree%top, chara, each_res)

   end function get_prefix_literal