test/FrontendAda/Support/element_copy.ads

   1 package Element_Copy is
   2    type SmallInt is range 1 .. 4;
   3    type SmallStr is array (SmallInt range <>) of Character;
   4    type VariableSizedField (D : SmallInt := 2) is record
   5       S : SmallStr (1 .. D) := "Hi";
   6    end record;
   7    function F return VariableSizedField;
   8 end;