diff options
Diffstat (limited to 'gcc/ada/prj-strt.adb')
| -rw-r--r-- | gcc/ada/prj-strt.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/prj-strt.adb b/gcc/ada/prj-strt.adb index dabd2a1730d..d6a2efa3082 100644 --- a/gcc/ada/prj-strt.adb +++ b/gcc/ada/prj-strt.adb @@ -282,6 +282,7 @@ package body Prj.Strt is end loop; -- If only one is not used, report a single warning for this value + if Non_Used = 1 then Error_Msg_Name_1 := Choices.Table (First_Non_Used).The_String; Error_Msg ("?value { is not used as label", Case_Location); |