From e478e16e8a8a256c8c117f0bbe54a3078c086bc2 Mon Sep 17 00:00:00 2001
From: Daniel Mercier <mercier@adacore.com>
Date: Thu, 14 Apr 2022 17:36:17 +0200
Subject: [PATCH] [Ada] Ignore Predicate_Failure in CodePeer mode

gcc/ada/

	* sem_ch13.adb (Build_Predicate_Function): Ignore predicate
	failure in CodePeer mode.
---
 gcc/ada/sem_ch13.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index c12253c..c405d15 100644
--- 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));
 
-- 
2.7.4