mem_tape Function

public function mem_tape(tape) result(res)

Uses

    • forgex_syntax_tree_node_m

Arguments

Type IntentOptional Attributes Name
type(tape_t), intent(in) :: tape

Return Value integer


Source Code

   function mem_tape(tape) result(res)
      use :: forgex_syntax_tree_node_m
      implicit none
      type(tape_t), intent(in) :: tape
      integer :: res

      res = len(tape%str)
      res = res + 12
   end function mem_tape