project Simple is

end Simple;

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;

with "/foo/bar/add_attr2.gpr";
with "simple";

project Test_With is

end Test_With;

