project Eliminate_Null is

   type A_Type is
      ("Debug", "Release");
   A : A_Type := external ("A");

   package Compiler is

      case A is

         when "Debug" =>
            for Default_Switches ("ada") use ("-g");
      end case;
   end Compiler;

end Eliminate_Null;

