gcc/testsuite/gnat.dg/derived_type7.ads

   1 -- { dg-do compile }
   2
   3 package Derived_Type7 is
   4
   5   type Six_Bit_Data_Type is range 0 .. 63;
   6   for Six_Bit_Data_Type'Size use 6;
   7
   8   type Six_Bit_Data_Array_Type is array (Integer range <>) of Six_Bit_Data_Type;
   9   for Six_Bit_Data_Array_Type'Component_Size use 6;
  10
  11   procedure Proc (Size : Natural);
  12
  13 end Derived_Type7;