subroutineopen_blockprivate

subroutine open_block(c, node)
    type(fypp_t), intent(inout) :: c    !! the state
    integer, intent(in) :: node         !! the block

    call append(c, node)
    if (c%depth == MAX_FRAMES) then
        call fail(c, 'blocks are nested too deeply')
        return
    end if
    c%depth = c%depth + 1
    c%stack(c%depth) = node
end subroutine open_block