================================================================================
Procedures inside conditional compilation blocks test
================================================================================

codeunit 50000 "Conditional Test"
{
#if not CLEAN24
    [Obsolete('Replaced by new procedure', '24.0')]
    procedure OldProcedure(param: Option)
    begin
    end;
#endif

    procedure NewProcedure(param: Integer)
    begin
    end;
}

--------------------------------------------------------------------------------

(source_file
  (codeunit_declaration
    (codeunit_keyword)
    object_id: (integer)
    object_name: (quoted_identifier)
    (preproc_conditional
      (preproc_if
        condition: (preproc_not_expression
          (identifier)))
      (attribute_item
        attribute: (attribute_content
          name: (identifier)
          arguments: (attribute_arguments
            (attribute_argument_list
              (string_literal)
              (string_literal)))))
      (procedure
        (procedure_keyword)
        name: (identifier)
        (parameter_list
          (parameter
            name: (identifier)
            type: (type_specification
              (option_type))))
        (code_block))
      (preproc_endif))
    (procedure
      (procedure_keyword)
      name: (identifier)
      (parameter_list
        (parameter
          name: (identifier)
          type: (type_specification
            (basic_type))))
      (code_block))))
