[Ada] Fix warning control character for message on IN OUT parameter

gcc/ada/

	* sem_warn.adb (Output_Non_Modified_In_Out_Warnings): Use right
	warning control character 'k' in both comment and call to
	Errout_Msg_N.
This commit is contained in:
Yannick Moy 2020-11-17 16:04:34 +01:00 committed by Pierre-Marie de Rodat
parent 758daef51b
commit d983a9d050

View File

@ -3077,14 +3077,14 @@ package body Sem_Warn is
-- Here we generate the warning
else
-- If -gnatwc is set then output message that we could be IN
-- If -gnatwk is set then output message that we could be IN
if not Is_Trivial_Subprogram (Scope (E1)) then
if Warn_On_Constant then
Error_Msg_N
("?u?formal parameter & is not modified!", E1);
("?k?formal parameter & is not modified!", E1);
Error_Msg_N
("\?u?mode could be IN instead of `IN OUT`!", E1);
("\?k?mode could be IN instead of `IN OUT`!", E1);
-- We do not generate warnings for IN OUT parameters
-- unless we have at least -gnatwu. This is deliberately