================================================================================
Pragma directives within code blocks
================================================================================

codeunit 50100 TestUnit
{
    procedure TestMethod()
    var
        AccessToken: Text;
    begin
        if UseCloudOCR then
        begin
#pragma warning disable AL0432
            AccessToken := Core.RequestAccessToken(false);
#pragma warning restore AL0432
        end;
    end;
}

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

(source_file
  (codeunit_declaration
    (codeunit_keyword)
    object_id: (integer)
    object_name: (identifier)
    (procedure
      (procedure_keyword)
      name: (identifier)
      (var_section
        (var_keyword)
        (variable_declaration
          name: (identifier)
          type: (type_specification
            (text_type))))
      (code_block
        (if_statement
          (if_keyword)
          condition: (identifier)
          (then_keyword)
          then_branch: (code_block
            (pragma)
            (assignment_statement
              left: (identifier)
              right: (call_expression
                function: (member_expression
                  object: (identifier)
                  member: (identifier))
                arguments: (argument_list
                  (boolean))))
            (pragma)))))))
