set_verbose_level Subroutine

    subroutine set_verbose_level(level)
        integer, intent(in) :: level
        current_verbose_level = level

        ! Enable debug categories based on verbose level
        if (level >= VERBOSE_ULTRA) then  ! -vvv: ultra verbose debug
            debug_parsing = .true.
            debug_lexing = .true.
            debug_semantic = .true.
            debug_codegen = .true.
            debug_frontend = .true.
        else if (level >= VERBOSE_DEBUG) then  ! -vv: debug level
            debug_parsing = .true.
            debug_frontend = .true.
            debug_semantic = .false.
            debug_lexing = .false.
            debug_codegen = .false.
        else
            debug_parsing = .false.
            debug_lexing = .false.
            debug_semantic = .false.
            debug_codegen = .false.
            debug_frontend = .false.
        end if
    end subroutine set_verbose_level