1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index ae5cd960e..0b696a8d8 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -2161,6 +2161,7 @@ package body Parse is
          loop
             El := Create_Iir (Iir_Kind_Element_Declaration);
             Set_Location (El);
+            Set_Parent (El, Res);
             if First = Null_Iir then
                First := El;
             end if;