freepascal.compiler/tests/tbs/tb0361.pp

type
  e=(one,two,three);

var
  a : array[0..cardinal(two)+1] of byte;

begin
end.