[COMMITTED 16/20] ada: Fix indentation in record component declarations

[Marc Poulhiès]

From: Piotr Trojanek <troja...@adacore.com>

Code cleanup.

gcc/ada/ChangeLog:

        * exp_aggr.adb (Case_Bounds): Fix indentation.
        * sem_case.adb (Choice_Bounds): Likewise.
        * libgnat/s-dourea.ads (Duuble_T): Likewise.
        * libgnat/s-excmac__arm.ads (Cleanup_Cache_Type): Likewise.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/exp_aggr.adb              | 6 +++---
 gcc/ada/libgnat/s-dourea.ads      | 2 +-
 gcc/ada/libgnat/s-excmac__arm.ads | 2 +-
 gcc/ada/sem_case.adb              | 6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 092e67c8a81..9aabd58b2a9 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -79,9 +79,9 @@ with Warnsw;         use Warnsw;
 package body Exp_Aggr is
 
    type Case_Bounds is record
-     Choice_Lo   : Node_Id;
-     Choice_Hi   : Node_Id;
-     Choice_Node : Node_Id;
+      Choice_Lo   : Node_Id;
+      Choice_Hi   : Node_Id;
+      Choice_Node : Node_Id;
    end record;
 
    type Case_Table_Type is array (Nat range <>) of Case_Bounds;
diff --git a/gcc/ada/libgnat/s-dourea.ads b/gcc/ada/libgnat/s-dourea.ads
index 5112228f687..61f974c7eef 100644
--- a/gcc/ada/libgnat/s-dourea.ads
+++ b/gcc/ada/libgnat/s-dourea.ads
@@ -43,7 +43,7 @@ package System.Double_Real is
    pragma Pure;
 
    type Double_T is record
-     Hi, Lo : Num;
+      Hi, Lo : Num;
    end record;
 
    function To_Double (N : Num) return Double_T is ((Hi => N, Lo => 0.0));
diff --git a/gcc/ada/libgnat/s-excmac__arm.ads 
b/gcc/ada/libgnat/s-excmac__arm.ads
index 463191d6b42..d6792d3ca6f 100644
--- a/gcc/ada/libgnat/s-excmac__arm.ads
+++ b/gcc/ada/libgnat/s-excmac__arm.ads
@@ -114,7 +114,7 @@ package System.Exceptions.Machine is
    end record;
 
    type Cleanup_Cache_Type is record
-     Bitpattern : uint32_t_array (0 .. 3);
+      Bitpattern : uint32_t_array (0 .. 3);
    end record;
 
    type Pr_Cache_Type is record
diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 9d197870414..b85afede98b 100644
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -58,9 +58,9 @@ with GNAT.Sets;
 package body Sem_Case is
 
    type Choice_Bounds is record
-     Lo   : Node_Id;
-     Hi   : Node_Id;
-     Node : Node_Id;
+      Lo   : Node_Id;
+      Hi   : Node_Id;
+      Node : Node_Id;
    end record;
    --  Represent one choice bounds entry with Lo and Hi values, Node points
    --  to the choice node itself.
-- 
2.43.0