project Add_Attr4 is

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

   case A is

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

end Add_Attr4;

project Add_Attr3 is

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

   case A is

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

end Add_Attr3;

project Add_Attr2 is

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

   case A is

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

end Add_Attr2;

project Add_Attr is

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

   case A is

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

end Add_Attr;

with "add_attr";
with "add_attr2";
with "add_attr3";
with "add_attr4";

project Remove_Dep is

end Remove_Dep;

