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";
7 function F
return VariableSizedField
;