From d6f609e10715daa1fe2412aa1371dc9357d075fd Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 3 Dec 2021 18:22:26 +0100
Subject: vhdl-sem.adb: fix incorrect check for conformance rules

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb
index 12b13a13c..3de7fd78e 100644
--- a/src/vhdl/vhdl-sem.adb
+++ b/src/vhdl/vhdl-sem.adb
@@ -1443,7 +1443,9 @@ package body Vhdl.Sem is
             then
                return False;
             end if;
-            if not Are_Trees_Equal (Get_Type (Left), Get_Type (Right)) then
+            if not Are_Trees_Equal (Get_Subtype_Indication (Left),
+                                    Get_Subtype_Indication (Right))
+            then
                return False;
             end if;
             El_Left := Get_Default_Value (Left);
-- 
cgit v1.2.3