package My_Package is

                type My_Enum is (Value_A, Value_B);

   subtype My_Subtype is       -- Some comment
                  Mode range Some_Value_A .. Some_Value_B;

        end My_Package;
