gcc/testsuite/gnat.dg/equal11_record.ads

   1 with Ada.Containers.Doubly_Linked_Lists;
   2 with Equal11_Interface;
   3
   4 package Equal11_Record is
   5
   6   use Equal11_Interface;
   7
   8   type My_Record_Type is new My_Interface_Type with
   9     record
  10       F : Integer;
  11     end record;
  12
  13   overriding
  14   procedure Put (R : in My_Record_Type);
  15
  16   Put_Result : Integer;
  17
  18    package My_Record_Type_List_Pck is
  19      new Ada.Containers.Doubly_Linked_Lists (Element_Type => My_Record_Type);
  20
  21 end Equal11_Record;