1 files changed, 1 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index d58730df0..c51a3d38d 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -3670,6 +3670,7 @@ package body Synth.Stmts is
          pragma Assert (Base.Typ = Typ);
 
          N := Build_Formal_Input (Get_Build (Syn_Inst), Id, Typ.W);
+         Set_Location (N, Val);
          Add_Conc_Assign (Base.Val.W, N, 0, Val);
       end;
    end Synth_Attribute_Formal;