1 package body Opt13_Pkg is
3 subtype Index_Type is Natural range 0 .. 16;
5 type Arr is array (Index_Type range <>) of Integer;
14 type Data (D : Index_Type) is record
19 Zero : constant Rec := (0.0, 0.0, 0.0, 0, False, False, 0.0);
21 procedure Allocate (T : out My_Type) is
23 T := new Data (Index_Type'last);
26 for I in 1 .. T.A'last loop