gcc/testsuite/gnat.dg/init_scalar1.adb

   1 --  { dg-do run }
   2 --  { dg-options "-gnatws -gnatVa" }
   3
   4 pragma Initialize_Scalars;
   5 procedure init_scalar1 is
   6   type Fixed_3T is delta 2.0 ** (- 4)
   7       range - 2.0 ** 19 ..  (2.0 ** 19 - 2.0 ** (- 4));
   8   for Fixed_3T'Size use 3*8;
   9
  10   Write_Value : constant Fixed_3T := Fixed_3T(524287.875);
  11   type singleton is array (1 .. 1) of Fixed_3T;
  12   pragma Pack (singleton);
  13   it : Singleton;
  14 begin
  15    null;
  16 end;