3 package Nested_Float_Packed
is
5 type Float_Type
is record
10 type Data_Type
is record
14 Default_Data
: constant Data_Type
:=
15 (Data
=> (Value
=> 1.0, Valid
=> False));
17 type Range_Type
is (RV1
, RV2
, RV3
);
18 for Range_Type
use (1, 2, 3);
20 Data_Block
: array (Range_Type
)
21 of Data_Type
:= (others => Default_Data
);