fpcsrc/tests/tbs/tb0502.pp


1
2
3
4
5
6
7
8
9
10

{ %norun }
{ %opt=-Sen -vn }
type
      TRegister = (
        TRegisterLowEnum := Low(longint),
        TRegisterHighEnum := High(longint)
      );

begin
end.