From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 2 May 2016 10:07:02 +0000 (+0000)
Subject: Minor reformatting.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b98d0bd6f67eaab7ebd6b76955bcaeea2383e81a;p=thirdparty%2Fgcc.git

Minor reformatting.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235734 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index 16702eb3661a..5012f32c7434 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);