freepascal.compiler/tests/tbs/tb0116.pp

{ Old file: tbs0135.pp }
{ Unsupported subrange type construction.               OK 0.99.6 }

program test;
const
  A = 0;
  B = 1;
  C = 2;

type D = A..C;

begin
end.