Minor reformatting.

From-SVN: r235711

gcc/ada/sem_attr.adb

@@ -4980,7 +4980,6 @@ package body Sem_Attr is
             --  type may lead to spurious errors if context is a case.
 
             if not GNATprove_Mode then
-
                if not Is_Discrete_Type (Pref_Typ) then
                   Pref_Typ := Base_Type (Pref_Typ);
                end if;

gcc/ada/sem_ch13.adb

@@ -4322,8 +4322,8 @@ package body Sem_Ch13 is
          ----------------------------
 
          function Valid_Default_Iterator (Subp : Entity_Id) return Boolean is
-            Formal : Entity_Id;
             Root_T : constant Entity_Id := Root_Type (Etype (Etype (Subp)));
+            Formal : Entity_Id;
 
          begin
             if not Check_Primitive_Function (Subp) then
@@ -4422,7 +4422,7 @@ package body Sem_Ch13 is
                   Set_Is_Overloaded (Expr, False);
                else
                   Error_Msg_N
-                    ("No interpretation is a valid default iterator!", Expr);
+                    ("no interpretation is a valid default iterator!", Expr);
                end if;
             end;
          end if;

gcc/ada/sem_ch4.adb

@@ -597,13 +597,15 @@ package body Sem_Ch4 is
                if Is_Tagged_Type (Type_Id)
                  and then Has_Discriminants (Type_Id)
                  and then not Is_Constrained (Type_Id)
-                 and then Present
-                   (Discriminant_Default_Value (First_Discriminant (Type_Id)))
+                 and then
+                   Present
+                     (Discriminant_Default_Value
+                       (First_Discriminant (Type_Id)))
                then
                   declare
+                     Constr : constant List_Id    := New_List;
                      Loc    : constant Source_Ptr := Sloc (E);
                      Discr  : Entity_Id := First_Discriminant (Type_Id);
-                     Constr : constant List_Id := New_List;
 
                   begin
                      if Present (Discriminant_Default_Value (Discr)) then
@@ -612,11 +614,12 @@ package body Sem_Ch4 is
                            Next_Discriminant (Discr);
                         end loop;
 
-                        Rewrite (E, Make_Subtype_Indication (Loc,
+                        Rewrite (E,
+                          Make_Subtype_Indication (Loc,
                             Subtype_Mark => New_Occurrence_Of (Type_Id, Loc),
                             Constraint   =>
                               Make_Index_Or_Discriminant_Constraint (Loc,
-                              Constr)));
+                                Constraints => Constr)));
                      end if;
                   end;
                end if;