fpcsrc/tests/tbs/tb0116.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{ 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.