get_suffix_literal Function

public pure function get_suffix_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_suffix_literal(tree) result(chara)
      implicit none
      type(tree_t), intent(in) :: tree
      character(:), allocatable :: chara
      logical :: has_or, has_closure

      chara = ''
      has_or = .false.
      has_closure = .false.

      call get_suffix_literal_internal(tree%nodes, tree%top, chara, has_or, has_closure)

   end function get_suffix_literal