Minor reformatting.

From-SVN: r235734

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index 16702eb3661afdae820681a91235ac266cadc390..5012f32c7434f3f5aca1f44c8b406ff5fe571764 100644 (file)
--- 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);