1-- { dg-do run } 2 3with Ada.Containers.Vectors; 4with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; 5procedure array3 is 6 type Method_Kinds is (Signal, Slot, Method); 7 8 package Unbounded_String_Vectors is 9 new Ada.Containers.Vectors 10 (Positive, Ada.Strings.Unbounded.Unbounded_String); 11 12 Params_Vector : Unbounded_String_Vectors.Vector; 13 14 type Method_Info is record 15 Name : Ada.Strings.Unbounded.Unbounded_String; 16 Signature : Ada.Strings.Unbounded.Unbounded_String; 17 Parameters : Unbounded_String_Vectors.Vector; 18 Kind : Method_Kinds; 19 end record; 20 21 package Method_Info_Vectors is 22 new Ada.Containers.Vectors (Positive, Method_Info); 23 24 Signals : Method_Info_Vectors.Vector; 25begin 26 27 Unbounded_String_Vectors.Append 28 (Params_Vector, 29 Ada.Strings.Unbounded.To_Unbounded_String ("AAA")); 30 31 Method_Info_Vectors.Append 32 (Signals, 33 (Name => To_Unbounded_String (""), 34 Signature => To_Unbounded_String (""), 35 Parameters => Params_Vector, 36 Kind => Signal)); 37end; 38