From afe5959e11727f6ff276bc1a7c62181306157504 Mon Sep 17 00:00:00 2001
From: Boris Yakobowski <yakobowski@adacore.com>
Date: Wed, 21 Apr 2021 14:49:15 +0200
Subject: [PATCH] [Ada] Do not catch 'N rem -1' in CodePeer_Mode

gcc/ada/

	* exp_ch4.adb (Expand_N_Op_Rem): Remove special case for rem -1
	in CodePeer_Mode.
---
 gcc/ada/exp_ch4.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index a9fc270..54e91b2 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -10393,7 +10393,9 @@ package body Exp_Ch4 is
       --  types and this is really marginal). We will just assume that we need
       --  the test if the left operand can be negative at all.
 
-      if Lneg and Rneg then
+      if (Lneg and Rneg)
+         and then not CodePeer_Mode
+      then
          Rewrite (N,
            Make_If_Expression (Loc,
              Expressions => New_List (
-- 
2.7.4