fpc/tests/webtbs/uw3968.pp
2005-12-20 08:11:59 +00:00

11 lines
216 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 3968 }
{ Submitted by "C Western" on 2005-05-14 }
{ e-mail: mftq75@dsl.pipex.com }
unit uw3968;
interface
type
Tabcde = (a=0,b,c,d,e);
Tabc = a..c;
implementation
end.