pragma Restrictions (No_Implicit_Loops); package TLS1_Pkg is Type My_Record_Type is record Date : long_float; Point : Integer; end record; type Nb_Type is range 0 .. 500; subtype Index_Type is Nb_Type range 1 .. 500; type My_Array_Type is array (Index_Type) of My_Record_Type; type My_Pseudo_Box_Type is record Nb : Nb_Type; Data : My_Array_Type; End record; My_Array : My_Pseudo_Box_Type := (Nb => 10, Data => (others => (Date => 3.0, Point => 1))); pragma Thread_Local_Storage (My_Array); end TLS1_Pkg;