diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 3dd8cd049ffa7166144b0dba1239297146b3bf85..b23be725437a01483fcc147f9b385ec5d7f23ae9 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -4414,9 +4414,10 @@ package body Sem_Warn is
 
                         if (No (S) or else not Is_Dispatching_Operation (S))
                           and then not Is_Trivial_Subprogram (Scope (E))
+                          and then Check_Unreferenced_Formals
                         then
                            Error_Msg_NE -- CODEFIX
-                             ("?u?formal parameter & is not referenced!",
+                             ("?f?formal parameter & is not referenced!",
                               E, Spec_E);
                         end if;
                      end;