From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Mon, 11 Jan 2021 15:26:45 +0000 (+0100)
Subject: [Ada] Don't emit style errors when parens are required
X-Git-Tag: upstream/12.2.0~8202
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d2b075f3de988b9c3bfabd06c585d5670dbcdadf;p=platform%2Fupstream%2Fgcc.git

[Ada] Don't emit style errors when parens are required

gcc/ada/

	* par-ch5.adb (P_Condition): Check if expression is declare
	expression.
---

diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb
index 9d0ac2c..7f82557 100644
--- a/gcc/ada/par-ch5.adb
+++ b/gcc/ada/par-ch5.adb
@@ -1299,17 +1299,16 @@ package body Ch5 is
 
          return Cond;
 
-      --  Otherwise check for redundant parentheses
-
-      --  If the condition is a conditional or a quantified expression, it is
-      --  parenthesized in the context of a condition, because of a separate
-      --  syntax rule.
+      --  Otherwise check for redundant parentheses but do not emit messages
+      --  about expressions that require parentheses (e.g. conditional,
+      --  quantified or declaration expressions).
 
       else
          if Style_Check
            and then
              Paren_Count (Cond) >
                (if Nkind (Cond) in N_Case_Expression
+                                 | N_Expression_With_Actions
                                  | N_If_Expression
                                  | N_Quantified_Expression
                 then 1