gcc/testsuite/gnat.dg/tls1_pkg.ads

   1 pragma Restrictions (No_Implicit_Loops);
   2
   3 package TLS1_Pkg is
   4    Type My_Record_Type is record
   5       Date : long_float;
   6       Point : Integer;
   7    end record;
   8
   9    type Nb_Type is range 0 .. 500;
  10    subtype Index_Type is Nb_Type range 1 .. 500;
  11
  12    type My_Array_Type is array (Index_Type) of My_Record_Type;
  13
  14    type My_Pseudo_Box_Type is record
  15       Nb : Nb_Type;
  16       Data : My_Array_Type;
  17    End record;
  18
  19    My_Array : My_Pseudo_Box_Type := (Nb => 10,
  20      Data => (others => (Date => 3.0, Point => 1)));
  21    pragma Thread_Local_Storage (My_Array);
  22
  23 end TLS1_Pkg;