Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/equal11_record.ads @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
line wrap: on
line source
with Ada.Containers.Doubly_Linked_Lists; with Equal11_Interface; package Equal11_Record is use Equal11_Interface; type My_Record_Type is new My_Interface_Type with record F : Integer; end record; overriding procedure Put (R : in My_Record_Type); Put_Result : Integer; package My_Record_Type_List_Pck is new Ada.Containers.Doubly_Linked_Lists (Element_Type => My_Record_Type); end Equal11_Record;