Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=int32), | intent(in) | :: | min | |||
integer(kind=int32), | intent(in) | :: | max |
pure function make_repeat_node(min, max) result(node) implicit none integer(int32), intent(in) :: min, max type(tree_node_t) :: node node%op = op_repeat node%min_repeat = min node%max_repeat = max end function make_repeat_node