================================================================================
protected objects
================================================================================

package body P is
   protected Obj is
      procedure Proc;
      function Func return Boolean;
      entry E;
      entry E2 (Color)(A : Integer);
      entry E3 (1 .. 1);
   private
      Field : Integer;
   end Obj;

   protected body Obj is
      procedure Proc is begin abort T; end;
      function Func return Boolean is begin return False; end;
      entry E when Field > 0 is
      begin
         requeue E with abort;
      end E;
      entry E2 (for C in Color)(A : Integer) when True is
      begin
         null;
      end E2;
      entry E3 (for I in 1 .. 1 with Import) when True is
      begin
         null;
      end E3;
   end Obj;
end;

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

(compilation
  (compilation_unit
    (package_body
      (identifier)
      (non_empty_declarative_part
        (object_declaration
          (single_protected_declaration
            (identifier)
            (protected_definition
              (subprogram_declaration
                (procedure_specification
                  (identifier)))
              (subprogram_declaration
                (function_specification
                  (identifier)
                  (result_profile
                    (identifier))))
              (entry_declaration
                (identifier))
              (entry_declaration
                (identifier)
                (identifier)
                (formal_part
                  (parameter_specification
                    (identifier)
                    (identifier))))
              (entry_declaration
                (identifier)
                (range_g
                  (term
                    (numeric_literal))
                  (term
                    (numeric_literal))))
              (component_declaration
                (identifier)
                (component_definition
                  (identifier)))
              (identifier))))
        (protected_body
          (identifier)
          (subprogram_body
            (procedure_specification
              (identifier))
            (handled_sequence_of_statements
              (abort_statement
                (identifier))))
          (subprogram_body
            (function_specification
              (identifier)
              (result_profile
                (identifier)))
            (handled_sequence_of_statements
              (simple_return_statement
                (expression
                  (term
                    (identifier))))))
          (entry_body
            (identifier)
            (entry_barrier
              (expression
                (term
                  (identifier))
                (relational_operator)
                (term
                  (numeric_literal))))
            (handled_sequence_of_statements
              (requeue_statement
                (identifier)))
            (identifier))
          (entry_body
            (identifier)
            (entry_index_specification
              (identifier)
              (identifier))
            (formal_part
              (parameter_specification
                (identifier)
                (identifier)))
            (entry_barrier
              (expression
                (term
                  (identifier))))
            (handled_sequence_of_statements
              (null_statement))
            (identifier))
          (entry_body
            (identifier)
            (entry_index_specification
              (identifier)
              (range_g
                (term
                  (numeric_literal))
                (term
                  (numeric_literal)))
              (aspect_specification
                (aspect_mark_list
                  (aspect_association
                    (identifier)))))
            (entry_barrier
              (expression
                (term
                  (identifier))))
            (handled_sequence_of_statements
              (null_statement))
            (identifier))
          (identifier))))))