[COMMITTED] ada: Silence CodePeer false positive

[Marc Poulhiès via Gcc-patches]

From: Boris Yakobowski <yakobow...@adacore.com>

gcc/ada/

        * sem_case.adb: silence false positive warning emitted by CodePeer
        on predefined equality for type Choice_Range_Info.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sem_case.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 244e53f5752..f89c3ca386f 100644
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -209,6 +209,8 @@ package body Sem_Case is
                     null;
               end case;
            end record;
+         pragma Annotate (CodePeer, False_Positive, "raise exception",
+                          "function is abstract, hence never called");
          function "=" (X, Y : Choice_Range_Info) return Boolean is abstract;
 
          type Choices_Range_Info is array (Choice_Id) of Choice_Range_Info;
-- 
2.34.1