==================
Procedure with preprocessor conditional var section
==================

codeunit 50000 "Test Codeunit"
{
    procedure TestProc()
#if not CLEAN26
    var
        x: Integer;
#else
    var
        y: Text;
#endif
    begin
        Message('Hello');
    end;
}

---

(source_file
  (codeunit_declaration
    (codeunit_keyword)
    object_id: (integer)
    object_name: (quoted_identifier)
    (procedure
      (procedure_keyword)
      name: (identifier)
      (preproc_conditional_var_block
        (preproc_if
          condition: (preproc_not_expression
            (identifier)))
        (var_section
          (var_keyword)
          (variable_declaration
            name: (identifier)
            type: (type_specification
              (basic_type))))
        (preproc_else)
        (var_section
          (var_keyword)
          (variable_declaration
            name: (identifier)
            type: (type_specification
              (text_type))))
        (preproc_endif))
      (code_block
        (call_expression
          function: (identifier)
          arguments: (argument_list
            (string_literal)))))))

==================
Procedure with simple preprocessor var section
==================

codeunit 50001 "Test Codeunit"
{
    internal procedure GetStatus()
#if not CLEAN26
    var
        Status: Boolean;
#endif
    begin
        exit;
    end;
}

---

(source_file
  (codeunit_declaration
    (codeunit_keyword)
    object_id: (integer)
    object_name: (quoted_identifier)
    (procedure
      modifier: (procedure_modifier
        (internal_keyword))
      (procedure_keyword)
      name: (identifier)
      (preproc_conditional_var_block
        (preproc_if
          condition: (preproc_not_expression
            (identifier)))
        (var_section
          (var_keyword)
          (variable_declaration
            name: (identifier)
            type: (type_specification
              (basic_type))))
        (preproc_endif))
      (code_block
        (exit_statement
          (exit_keyword))))))
