package T_Unrep is
   type Rec is
      record
         X, Y : Character;
      end record;
   

   procedure P;
end T_Unrep;
package body T_Unrep is
   type T is range 1..10;
   

   X : Integer;
   Y : Integer;
   Z : Integer;
   
   
   type Tab is array (1..10) of Character;
   

   procedure P is
      type T is (One, Two, Three);
      
   begin
      null;
   end P;

   type One_Line is array (1..3) of Character;   I : Integer;
begin
   null;
end T_Unrep;
package T_Unrep is
   type Rec is
      record
         X, Y : Character;
      end record;
   
--CHANGED:   for Rec use
--CHANGED:      record
--CHANGED:         X at 0 range 0..7;
--CHANGED:         Y at 1 range 0..7;

--CHANGED:      end record;
   procedure P;
end T_Unrep;
package body T_Unrep is
   type T is range 1..10;
   
--CHANGED:   for T'Size use 32;

   X : Integer;
   Y : Integer;
   Z : Integer;
   
--CHANGED:   for X'Address use Y'Address;
   
--CHANGED:   for Z use at Y'Address;
   type Tab is array (1..10) of Character;
   
--CHANGED:   pragma Pack (Tab);

   procedure P is
      type T is (One, Two, Three);
      
--CHANGED:      for T use (10, 20, 30);
   begin
      null;
   end P;

   type One_Line is array (1..3) of Character;   I : Integer;
--CHANGED:   type One_Line is array (1..3) of Character; for One_Line'Component_size use 8; pragma Pack (One_Line); I : Integer;
begin
   null;
end T_Unrep;
