From 98358ffe7135e62a38168234619347d4aa159cd8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 13 Dec 2021 19:01:32 +0100
Subject: vhdl-sem_expr.adb: avoid a crash after forced analysis

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

(limited to 'src/vhdl/vhdl-sem_expr.adb')

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 21e7b2237..04a73071c 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -4767,7 +4767,8 @@ package body Vhdl.Sem_Expr is
                Obj := Get_Named_Entity (Obj);
             when Iir_Kinds_Psl_Builtin =>
                return;
-            when Iir_Kind_Error =>
+            when Iir_Kind_Parenthesis_Name
+              | Iir_Kind_Error =>
                return;
             when others =>
                Error_Kind ("check_read", Obj);
-- 
cgit v1.2.3