From fdb2f2e696250fafc13635ac8c026d82e05f7738 Mon Sep 17 00:00:00 2001 From: Ghjuvan Lacambre Date: Wed, 4 May 2022 13:31:07 +0200 Subject: [PATCH] [Ada] Fix "formal parameter & is not referenced" not being properly tagged gcc/ada/ * sem_warn.adb (Warn_On_Unreferenced_Entity): Fix warning tag. --- gcc/ada/sem_warn.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 3dd8cd049ff..b23be725437 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; -- 2.11.4.GIT