get_entire_literal Function

public pure function get_entire_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_entire_literal(tree) result(chara)
      implicit none
      type(tree_t), intent(in) :: tree 
      character(:),allocatable :: chara
      logical :: each_res
      chara = ''

      call get_entire_literal_internal(tree%nodes, tree%top, chara, each_res)
   end function get_entire_literal