testsuite/gna/issue2117/bug.vhdl


1
2
3
4
5
6
7
8
9
10
11

entity bug is end; 

architecture a of bug is 
    type t1 is (enum_val_1);

    procedure p is 
    begin
        enum_val_1.missing_identifier;
    end;
begin 
end;