在Ada中，可以使用all关键字重新导出枚举类型的值。下面是一个示例代码：

with Ada.Text_IO;

package Enum_Package is

   type My_Enum is (Value1, Value2, Value3);
   subtype My_Enum_Subtype is My_Enum;

   procedure Print_Enum_Value (Value : My_Enum_Subtype);

   -- 重新导出枚举类型的值
   subtype Exported_Enum is My_Enum_Subtype renames My_Enum;

end Enum_Package;

package body Enum_Package is

   procedure Print_Enum_Value (Value : My_Enum_Subtype) is
   begin
      case Value is
         when Exported_Enum.Value1 =>
            Ada.Text_IO.Put_Line("Value1");
         when Exported_Enum.Value2 =>
            Ada.Text_IO.Put_Line("Value2");
         when Exported_Enum.Value3 =>
            Ada.Text_IO.Put_Line("Value3");
         when others =>
            Ada.Text_IO.Put_Line("Invalid value");
      end case;
   end Print_Enum_Value;

end Enum_Package;

with Enum_Package;

procedure Main is
   My_Value : Enum_Package.Exported_Enum := Enum_Package.Exported_Enum.Value2;
begin
   Enum_Package.Print_Enum_Value(My_Value);
end Main;

在上面的示例代码中，定义了一个名为My_Enum的枚举类型，然后定义了一个子类型My_Enum_Subtype，该子类型包含了My_Enum的所有值。接下来，使用renames关键字将My_Enum_Subtype重新导出为Exported_Enum，这样其他包可以直接使用Exported_Enum来引用枚举类型的值。

在Enum_Package的主体中，定义了一个过程Print_Enum_Value，用于打印枚举类型的值。在Main过程中，创建了一个Enum_Package.Exported_Enum类型的变量My_Value，并将其赋值为Enum_Package.Exported_Enum.Value2。然后调用Enum_Package.Print_Enum_Value过程来打印My_Value的值。

运行上述代码，将会输出Value2。