freepascal.compiler/tests/tbs/tb0347.pp

{$mode objfpc}
{$M+}

type
   tenum = (te_first,te_second,te_third,te_fourth,te_fifth);

   tenumrange = te_second..te_fourth;

   tc1 = class
      public
        fe : tenumrange;
      published
        property enumrange : tenumrange read fe write fe;
   end;

begin
end.