testsuite/gna/bug18360/testcase.vhdl


1
2
3
4
5
6
7
8

entity TESTCASE is
end entity TESTCASE;

architecture PROBLEM of TESTCASE is
  type ENUMERATION_TYPE is (VALUE1, VALUE2);
  constant SOME_VAR : integer := ENUMERATION_TYPE'length;
begin
end architecture PROBLEM;