diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_decls.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb index 9d7f3b20d..a78f482c1 100644 --- a/src/vhdl/vhdl-sem_decls.adb +++ b/src/vhdl/vhdl-sem_decls.adb @@ -1167,6 +1167,9 @@ package body Vhdl.Sem_Decls is Atype := Create_Error_Type (Get_Type (Decl)); end if; else + Set_Is_Ref (Decl, True); + Atype := Get_Subtype_Indication (Last_Decl); + Set_Subtype_Indication (Decl, Atype); Atype := Get_Type (Last_Decl); end if; Set_Type (Decl, Atype); |