vhdl-sem.adb: fix incorrect check for conformance rules

1 files changed, 3 insertions, 1 deletions

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);