1package 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; 8end; 9