synth: handle access subtypes

1 files changed, 8 insertions, 0 deletions

diff --git a/src/synth/elab-vhdl_types.adb b/src/synth/elab-vhdl_types.adb
index 33b5feb8c..8aeb33d37 100644
--- a/src/synth/elab-vhdl_types.adb
+++ b/src/synth/elab-vhdl_types.adb
@@ -617,6 +617,14 @@ package body Elab.Vhdl_Types is
                  (Syn_Inst, Get_Range_Constraint (Atype));
                return Create_Float_Type (Rng);
             end;
+         when Iir_Kind_Access_Subtype_Definition =>
+            declare
+               Acc_Typ : Type_Acc;
+            begin
+               Acc_Typ := Synth_Subtype_Indication
+                 (Syn_Inst, Get_Designated_Type (Atype));
+               return Create_Access_Type (Acc_Typ);
+            end;
          when others =>
             Vhdl.Errors.Error_Kind ("synth_subtype_indication", Atype);
       end case;