testsuite/gna/ticket65/bug1.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

entity ent1 is
end entity;

architecture a of ent1 is
begin
  main : process is
    type enum_t is (value1, value2);
    variable var : enum_t;
  begin
    var := enum_t'rightof(value1); -- Works
    var := enum_t'leftof(value1); -- Error
    var := enum_t'leftof(value2); -- Works
    var := enum_t'rightof(var); -- cannot handle IIR_KIND_RIGHTOF_ATTRIBUTE
    var := enum_t'leftof(var);  -- cannot handle IIR_KIND_LEFTOF_ATTRIBUTE
    wait;
  end process;
end architecture;