project Add_Attr5 is

   type A_Type is
      ("1", "2");
   A : A_Type := external ("A");
   type B_Type is
      ("B1", "B2");
   B : B_Type := external ("B");
   for Object_Dir use "..";
   for Object_Dir use ".";

   case A is

      when "1" =>

         case B is

            when "B1" =>
               for Source_Dirs use (".");
         end case;
   end case;

   package Compiler is

      case B is

         when "B1" =>

            case A is

               when "2" =>
                  for Object_Dir use "new_obj_dir";
            end case;
      end case;
   end Compiler;

end Add_Attr5;

