make_tree_node Function

public pure function make_tree_node(op) result(node)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	op

Return Value type(tree_node_t)

Source Code

   pure function make_tree_node(op) result(node)
      implicit none
      integer(int32), intent(in) :: op
      type(tree_node_t) :: node

      node%op = op
   end function make_tree_node