vhdl-sem.adb(are_trees_equal): handle selected element. Fix #2050

1 files changed, 4 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb
index aed94e118..ce0428476 100644
--- a/src/vhdl/vhdl-sem.adb
+++ b/src/vhdl/vhdl-sem.adb
@@ -1584,6 +1584,10 @@ package body Vhdl.Sem is
                                     Get_Prefix (Right))
               and then Are_Trees_Equal (Get_Suffix (Left),
                                         Get_Suffix (Right));
+         when Iir_Kind_Selected_Element =>
+            return Are_Trees_Equal (Get_Prefix (Left),
+                                    Get_Prefix (Right))
+              and then Get_Identifier (Left) = Get_Identifier (Right);
 
          when Iir_Kind_Access_Type_Definition
            | Iir_Kind_Record_Type_Definition