project Add_Attr9 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 ".";

   package Compiler is

      case A is

         when "2" =>

            case B is

               when "B1" =>
                  for Local_Configuration_Pragmas use "foo.adc";
            end case;

         when "1" =>

            case B is

               when "B1" =>
                  for Local_Configuration_Pragmas use "gnat.adc";
            end case;
      end case;
   end Compiler;

end Add_Attr9;

