project Rename_Val3 is

   type Common_Type is
      ("100", "2");
   A : Common_Type := external ("A", "100");
   type Common_Type1 is
      ("1", "2");
   B : Common_Type1 := external ("B", "1");

   case A is

      when "2" =>

         case B is

            when "2" =>
               for Object_Dir use "./..";

            when "1" =>
               for Object_Dir use "./.";
         end case;

      when "100" =>

         case B is

            when "2" =>
               for Object_Dir use "..";

            when "1" =>
               for Object_Dir use ".";
         end case;
   end case;

end Rename_Val3;

