freepascal.compiler/bugs/bug0028.pp

type
   enumtype = (a);

var
   e : enumtype;

begin
   writeln(ord(e));
end.