From 7dada3d5edce113d1dd29a9587447d2fd9c40067 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 12 Sep 2021 10:16:28 +0200
Subject: vhdl-sem_assocs: add a check to avoid a crash on an error.  Fix #873

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

(limited to 'src')

diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb
index 4c9ea3b06..304e59915 100644
--- a/src/vhdl/vhdl-sem_assocs.adb
+++ b/src/vhdl/vhdl-sem_assocs.adb
@@ -534,6 +534,10 @@ package body Vhdl.Sem_Assocs is
          then
             return True;
          end if;
+         if Get_Kind (Dest) not in Iir_Kinds_Scalar_Type_And_Subtype_Definition
+         then
+            return True;
+         end if;
 
          Src_Range := Get_Range_Constraint (Src);
          Dst_Range := Get_Range_Constraint (Dest);
-- 
cgit v1.2.3