From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 2 May 2016 10:07:02 +0000 (+0200)
Subject: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=86d2f05621aed0d34dc97a4d619958aa7e170d1c;p=gcc.git

Minor reformatting.

From-SVN: r235734
---

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index 16702eb3661..5012f32c743 100644
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -2798,13 +2798,15 @@ package body Exp_Ch5 is
 
             if Predicates_Ignored (Etype (Expr)) then
                declare
-                  Except : constant Node_Id :=
-                   Make_Raise_Constraint_Error (Loc,
-                     Reason => CE_Invalid_Data);
+                  Except  : constant Node_Id :=
+                              Make_Raise_Constraint_Error (Loc,
+                                Reason => CE_Invalid_Data);
                   New_Alt : constant Node_Id :=
-                    Make_Case_Statement_Alternative (Loc,
-                      Discrete_Choices => New_List (Make_Others_Choice (Loc)),
-                      Statements => New_List (Except));
+                              Make_Case_Statement_Alternative (Loc,
+                                Discrete_Choices => New_List (
+                                  Make_Others_Choice (Loc)),
+                                Statements       => New_List (Except));
+
                begin
                   Append (New_Alt, Alternatives (N));
                   Analyze_And_Resolve (Except);