project Remove_Att is

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

   case B is

      when "B2" =>
         for Source_Dirs use (".");

      when "B1" =>

         case A is

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

end Remove_Att;

