[gcc r12-5741] [Ada] Add pragma Annotate for CodePeer analysis

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:ce79e7e24acdc83620782dae9b954b1ad2bdb988

commit r12-5741-gce79e7e24acdc83620782dae9b954b1ad2bdb988
Author: Yannick Moy <moy@adacore.com>
Date:   Fri Nov 26 09:32:09 2021 +0100

    [Ada] Add pragma Annotate for CodePeer analysis
    
    gcc/ada/
    
            * libgnat/s-widthi.adb: Add pragma Annotate.

Diff:
---
 gcc/ada/libgnat/s-widthi.adb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gcc/ada/libgnat/s-widthi.adb b/gcc/ada/libgnat/s-widthi.adb
index 55a94ecfc10..e47c8c13f27 100644
--- a/gcc/ada/libgnat/s-widthi.adb
+++ b/gcc/ada/libgnat/s-widthi.adb
@@ -163,6 +163,9 @@ begin
          pragma Loop_Invariant (Pow = Big_10 ** (W - 2));
          pragma Loop_Invariant (Big (T) = Big (T_Init) / Pow);
          pragma Loop_Variant (Decreases => T);
+         pragma Annotate
+           (CodePeer, False_Positive,
+            "validity check", "confusion on generated code");
       end loop;
 
       declare