diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 186e332963d..1c07d5e52bf 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2016-04-20  Hristian Kirtchev  <kirtchev@adacore.com>
+
+	* s-imgllu.adb, sem_util.adb, s-imgint.adb, s-imguns.adb,
+	s-imglli.adb: Minor reformatting.
+
 2016-04-20  Hristian Kirtchev  <kirtchev@adacore.com>
 
 	* sem_res.adb (Rewrite_Renamed_Operator): Do not rewrite the
diff --git a/gcc/ada/s-imgint.adb b/gcc/ada/s-imgint.adb
index 4fad4e66e75..0d19e56fcad 100644
--- a/gcc/ada/s-imgint.adb
+++ b/gcc/ada/s-imgint.adb
@@ -32,7 +32,9 @@
 package body System.Img_Int is
 
    procedure Set_Digits
-     (T : Integer; S : in out String; P : in out Natural);
+     (T : Integer;
+      S : in out String;
+      P : in out Natural);
    --  Set digits of absolute value of T, which is zero or negative. We work
    --  with the negative of the value so that the largest negative number is
    --  not a special case.
@@ -64,7 +66,10 @@ package body System.Img_Int is
    ----------------
 
    procedure Set_Digits
-     (T : Integer; S : in out String; P : in out Natural) is
+     (T : Integer;
+      S : in out String;
+      P : in out Natural)
+   is
    begin
       if T <= -10 then
          Set_Digits (T / 10, S, P);
@@ -83,7 +88,8 @@ package body System.Img_Int is
    procedure Set_Image_Integer
      (V : Integer;
       S : in out String;
-      P : in out Natural) is
+      P : in out Natural)
+   is
    begin
       if V >= 0 then
          Set_Digits (-V, S, P);
diff --git a/gcc/ada/s-imglli.adb b/gcc/ada/s-imglli.adb
index 9e7199bf528..6c4a78356ba 100644
--- a/gcc/ada/s-imglli.adb
+++ b/gcc/ada/s-imglli.adb
@@ -32,7 +32,9 @@
 package body System.Img_LLI is
 
    procedure Set_Digits
-     (T : Long_Long_Integer; S : in out String; P : in out Natural);
+     (T : Long_Long_Integer;
+      S : in out String;
+      P : in out Natural);
    --  Set digits of absolute value of T, which is zero or negative. We work
    --  with the negative of the value so that the largest negative number is
    --  not a special case.
@@ -64,7 +66,10 @@ package body System.Img_LLI is
    ----------------
 
    procedure Set_Digits
-     (T : Long_Long_Integer; S : in out String; P : in out Natural) is
+     (T : Long_Long_Integer;
+      S : in out String;
+      P : in out Natural)
+   is
    begin
       if T <= -10 then
          Set_Digits (T / 10, S, P);
diff --git a/gcc/ada/s-imgllu.adb b/gcc/ada/s-imgllu.adb
index 95ff789d96e..a70908a28c4 100644
--- a/gcc/ada/s-imgllu.adb
+++ b/gcc/ada/s-imgllu.adb
@@ -56,7 +56,8 @@ package body System.Img_LLU is
    procedure Set_Image_Long_Long_Unsigned
      (V : Long_Long_Unsigned;
       S : in out String;
-      P : in out Natural) is
+      P : in out Natural)
+   is
    begin
       if V >= 10 then
          Set_Image_Long_Long_Unsigned (V / 10, S, P);
diff --git a/gcc/ada/s-imguns.adb b/gcc/ada/s-imguns.adb
index c6df94c936a..c466db3f671 100644
--- a/gcc/ada/s-imguns.adb
+++ b/gcc/ada/s-imguns.adb
@@ -56,7 +56,8 @@ package body System.Img_Uns is
    procedure Set_Image_Unsigned
      (V : Unsigned;
       S : in out String;
-      P : in out Natural) is
+      P : in out Natural)
+   is
    begin
       if V >= 10 then
          Set_Image_Unsigned (V / 10, S, P);
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index a808c02db59..e5787373a45 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -20183,8 +20183,8 @@ package body Sem_Util is
               and then Present (Corresponding_Spec_Of_Stub (P))
             then
                U := Corresponding_Spec_Of_Stub (P);
-            elsif Nkind (P) = N_Subprogram_Renaming_Declaration
-            then
+
+            elsif Nkind (P) = N_Subprogram_Renaming_Declaration then
                U := Corresponding_Spec (P);
             end if;