1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index 800a0c9df..729e7352b 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -1213,6 +1213,8 @@ package body Vhdl.Utils is
             end case;
          when Iir_Kind_Subtype_Attribute =>
             return Get_Type (Ent);
+         when Iir_Kind_Element_Attribute =>
+            return Get_Type (Name);
          when others =>
             return Null_Iir;
       end case;