
project Add_List6 is

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

   package compiler is
       for Default_Switches ("ada") use ("-g");
       for Default_Switches ("ada") use Compiler'Default_Switches ("ada")
         & ("-O");
   end compiler;
end Add_List6;


