is_debug_category_enabled Function

    logical function is_debug_category_enabled(category)
        character(len=*), intent(in) :: category

        select case (trim(category))
        case ("parsing")
            is_debug_category_enabled = debug_parsing
        case ("lexing")
            is_debug_category_enabled = debug_lexing
        case ("semantic")
            is_debug_category_enabled = debug_semantic
        case ("codegen")
            is_debug_category_enabled = debug_codegen
        case ("frontend")
            is_debug_category_enabled = debug_frontend
        case default
            is_debug_category_enabled = .false.
        end select
    end function is_debug_category_enabled