From 7c2d3d4a419be583e46f0c8a84c26a86b696da3a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 26 Jan 2023 21:53:52 +0100
Subject: vhdl-sem_names: adjust for for element attribute

---
 src/vhdl/vhdl-sem_names.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb
index b52e7e7ae..8a742767a 100644
--- a/src/vhdl/vhdl-sem_names.adb
+++ b/src/vhdl/vhdl-sem_names.adb
@@ -3767,6 +3767,7 @@ package body Vhdl.Sem_Names is
       --  If the prefix is an object, we know its type is constrained.
       if not Is_Prefix_Object
         and then not Get_Index_Constraint_Flag (Prefix_Type)
+        and then Get_Identifier (Attr) /= Name_Element
       then
          Error_Msg_Sem (+Attr, "prefix type is not constrained");
          --  We continue using the unconstrained array type.
-- 
cgit v1.2.3