blob: 52c6e49275efb6663814f0047cd6fc797ea8af99 (
plain)
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;
|
