project Add_Attr_Idx3 is

   type A_Type is
      ("1", "2");
   A : A_Type := external ("A");

   package Naming is
      for Specification ("unit2") use "unit2.ads";

      case A is

         when "1" =>
            for Specification ("unit") use "unit.ads";
      end case;
   end Naming;

end Add_Attr_Idx3;

