freepascal.compiler/tests/webtbf/tw24428.pp

{ %fail }

{$r+}

type abcd = (a, b, c, d);
const cd: c..d = a;
begin
end.