{ Old file: tbs0027.pp } { tests type enumtype = (One, two, three, forty:=40, fifty); OK 0.9.5 } type enumtype = (One, two, three, forty:=40, fifty); begin end.