TP3/shell/tests/fixtures/t127_enumsub.pas

program enumsub;
type Days = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
     Work = Mon..Fri;
var W : Work;
begin
  W := Mon;
  writeln(Ord(W))
end.