test/FrontendAda/Support/element_copy.ads


1
2
3
4
5
6
7
8

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