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

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