1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 1a3805c77..c36400e91 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1019,8 +1019,6 @@ package body Synth.Stmts is
       while Is_Valid (Assoc) loop
          Inter := Get_Association_Interface (Assoc, Assoc_Inter);
 
-         Synth_Declaration_Type (Subprg_Inst, Inter);
-
          case Iir_Parameter_Modes (Get_Mode (Inter)) is
             when Iir_In_Mode =>
                case Get_Kind (Assoc) is
@@ -1230,6 +1228,8 @@ package body Synth.Stmts is
                exit;
             when Iir_Kind_Procedure_Call_Statement =>
                Synth_Procedure_Call (Syn_Inst, Stmt);
+            when Iir_Kind_Report_Statement =>
+               null;
             when others =>
                Error_Kind ("synth_sequential_statements", Stmt);
          end case;