project Same_Case is

   type Var_Type is ("1", "2");
   Var : Var_Type := external ("VAR");

   case Var is
      when "1" =>
          for Source_Dirs use (".");
          case Var is
              when "1" =>
                 for Object_Dir use ".";
              when "2" =>
                 for Object_dir use "invalid";
          end case;
          for Source_Files use ("a.adb");
   end case;
end Same_Case;
