Minor reformatting.

From-SVN: r244697

diff --git a/gcc/ada/scn.ads b/gcc/ada/scn.ads
index ea7b22be9f164372d9ca2746756669aabdf3d4c1..f5628a9e4e3c8d9edd2cb7e5fd6e0fba04522af7 100644 (file)
--- a/gcc/ada/scn.ads
+++ b/gcc/ada/scn.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2010, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2016, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -44,8 +44,8 @@ package Scn is
    --  source index for reading the configuration pragma file.
 
    function Determine_Token_Casing return Casing_Type;
-   --  Determines the casing style of the current token, which is
-   --  either a keyword or an identifier. See also package Casing.
+   --  Determines the casing style of the current token, which is either a
+   --  keyword or an identifier. See also package Casing.
 
    procedure Post_Scan;
    --  Create nodes for tokens: Char_Literal, Identifier, Real_Literal,

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 9d2490fb9372d34cf2aa012a4922b517a1d5c6ec..f42d3f98bf2b17315d0d88c51375ab26029fc7cb 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -21348,7 +21348,7 @@ package body Sem_Prag is
 
             procedure Set_SPARK_Context is
             begin
-               SPARK_Mode := Mode_Id;
+               SPARK_Mode        := Mode_Id;
                SPARK_Mode_Pragma := N;
             end Set_SPARK_Context;