subroutineset_statepureprivate
pure subroutine set_state(t, state)
Enter parser state state.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| t | type(tree_t) | inout | the conversion | |
| state | character(len=*) | in | the state |
Source
Show the code
pure subroutine set_state(t, state)
type(tree_t), intent(inout) :: t !! the conversion
character(len=*), intent(in) :: state !! the state
t%state = t%state//','//state
end subroutine set_state