freepascal.compiler/tests/test/jvm/uenum.pp

unit uenum;

{$mode delphi}

interface

type
  myenumjumps = (meja = 5, mejb = -5, mejc = 102);
  myenum = (mea, meb, mec, med);

implementation

end.