project Add_Attr3 is

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

   case A is

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

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

end Add_Attr3;

