gcc/testsuite/gnat.dg/equal6_types.adb

   1 package body Equal6_Types is
   2
   3    function "=" (L, R : in Mail_Box_Data_T) return Boolean is
   4       use type Bits_T;
   5    begin
   6       Equal1_Called := True;
   7       return L.Message (1) = R.Message (1);
   8    end "=";
   9
  10    function "=" (L, R : in To_Evc_Optional_Packet_List_T) return Boolean is
  11    begin
  12       Equal2_Called := True;
  13       return L.List (1) = R.List (1);
  14    end "=";
  15 end Equal6_Types;