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

   package compiler is
      case A is
         when "1" =>
            for default_switches ("C") use ("-g");
      end case;
   end compiler;
end Add_List_Idx;
