1 files changed, 7 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_expr.adb b/src/synth/elab-vhdl_expr.adb
index 76a9a59e8..72a0e2b8c 100644
--- a/src/synth/elab-vhdl_expr.adb
+++ b/src/synth/elab-vhdl_expr.adb
@@ -698,6 +698,13 @@ package body Elab.Vhdl_Expr is
                Val := Elab.Vhdl_Heap.Synth_Dereference (Read_Access (Val));
                return Val.Typ;
             end;
+         when Iir_Kind_Function_Call =>
+            declare
+               Val : Valtyp;
+            begin
+               Val := Synth.Vhdl_Expr.Synth_Expression (Syn_Inst, Name);
+               return Val.Typ;
+            end;
          when others =>
             Error_Kind ("exec_name_subtype", Name);
       end case;