1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/netlists-inference.adb b/src/synth/netlists-inference.adb
index 6da07e19a..383211684 100644
--- a/src/synth/netlists-inference.adb
+++ b/src/synth/netlists-inference.adb
@@ -780,7 +780,11 @@ package body Netlists.Inference is
       else
          Name := Get_Instance_Name (Get_Net_Parent (Prev_Val));
       end if;
-      Error_Msg_Synth (Loc, "latch infered for net %n", +Name);
+
+      if not Flag_Latches then
+         Error_Msg_Synth
+           (Loc, "latch infered for net %n (use --latches)", +Name);
+      end if;
 
       return Val;
    end Infere_Latch;