Minor reformatting.

From-SVN: r103895

gcc/ada/a-szmzco.ads

@@ -38,7 +38,7 @@
 with Ada.Characters.Wide_Wide_Latin_1;
 
 package Ada.Strings.Wide_Wide_Maps.Wide_Wide_Constants is
-pragma Preelaborate (Wide_Wide_Constants);
+   pragma Preelaborate;
 
    Control_Set           : constant Wide_Wide_Maps.Wide_Wide_Character_Set;
    Graphic_Set           : constant Wide_Wide_Maps.Wide_Wide_Character_Set;

gcc/ada/sem_case.adb

@@ -99,11 +99,11 @@ package body Sem_Case is
       Msg_Sloc       : Source_Ptr)
    is
       function Lt_Choice (C1, C2 : Natural) return Boolean;
-      --  Comparison routine for comparing Choice_Table entries.
-      --  Use the lower bound of each Choice as the key.
+      --  Comparison routine for comparing Choice_Table entries. Use the lower
+      --  bound of each Choice as the key.
 
       procedure Move_Choice (From : Natural; To : Natural);
-      --  Move routine for sorting the Choice_Table.
+      --  Move routine for sorting the Choice_Table
 
       procedure Issue_Msg (Value1 : Node_Id; Value2 : Node_Id);
       procedure Issue_Msg (Value1 : Node_Id; Value2 : Uint);
@@ -578,7 +578,7 @@ package body Sem_Case is
 
          Bounds_Lo : Uint;
          Bounds_Hi : Uint;
-         --  The actual bounds of the above type.
+         --  The actual bounds of the above type
 
          Expected_Type : Entity_Id;
          --  The expected type of each choice. Equal to Choice_Type, except