From c7d8f9e27b8fa97a76a0bd638f300197823771ad Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 6 May 2022 06:06:55 +0200
Subject: vhdl-sem.adb(are_trees_equal): handle selected element.  Fix #2050

---
 src/vhdl/vhdl-sem.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/vhdl')

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
-- 
cgit v1.2.3