[Ada] Ignore Predicate_Failure in CodePeer mode

gcc/ada/

	* sem_ch13.adb (Build_Predicate_Function): Ignore predicate
	failure in CodePeer mode.

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index c12253cf26a2e571073fb27143d9755d5e6da0d6..c405d15f8f18a7d81c42154d6cd39b2836f63446 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -10493,6 +10493,7 @@ package body Sem_Ch13 is
 
                if Present (PF_Expr)
                  and then not GNATprove_Mode
+                 and then not CodePeer_Mode
                then
                   pragma Assert (Present (Second_Formal));