gcc/testsuite/gnat.dg/specs/pr34799.ads

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatwa" }
   3
   4 package PR34799 is
   5    generic
   6       type Custom_T is private;
   7    package Handler is
   8       type Storage_T is record
   9          A : Boolean;
  10          B : Boolean;
  11          C : Custom_T;
  12       end record;
  13
  14       for Storage_T use record
  15          A at 0 range 0..0;
  16          B at 1 range 0..0;
  17       end record;
  18    end Handler;
  19 end PR34799;