subroutinereset_statepureprivate
pure subroutine reset_state(t)
Leave the innermost parser state.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| t | type(tree_t) | inout | the conversion |
Source
Show the code
pure subroutine reset_state(t)
type(tree_t), intent(inout) :: t !! the conversion
t%state = t%state(:index(t%state, ',', back=.true.) - 1)
end subroutine reset_state