[gcc r12-6241] [Ada] Remove extra space in parameter associations

[gcc r12-6241] [Ada] Remove extra space in parameter associations

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:08613129bb18b932e8c1108fca1c8e4e39a24e38

commit r12-6241-g08613129bb18b932e8c1108fca1c8e4e39a24e38
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Mon Nov 29 13:21:04 2021 +0100

    [Ada] Remove extra space in parameter associations
    
    gcc/ada/
    
            * exp_aggr.adb (Two_Pass_Aggregate_Expansion): Fix whitespace.
            * libgnat/a-cofuve.ads (Add): Likewise.
            * sem_ch3.adb (Build_Access_Subprogram_Wrapper): Likewise.

Diff:
---
 gcc/ada/exp_aggr.adb         | 4 ++--
 gcc/ada/libgnat/a-cofuve.ads | 2 +-
 gcc/ada/sem_ch3.adb          | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index bdb483e1138..df3763820b3 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -6408,7 +6408,7 @@ package body Exp_Aggr is
             One_Loop := Make_Loop_Statement (Loc,
               Iteration_Scheme =>
                 Make_Iteration_Scheme (Loc,
-                  Iterator_Specification =>  New_Copy_Tree (Iter)),
+                  Iterator_Specification => New_Copy_Tree (Iter)),
                 Statements => New_List (Incr));
 
             Append (One_Loop, Size_Expr_Code);
@@ -6540,7 +6540,7 @@ package body Exp_Aggr is
             One_Loop := Make_Loop_Statement (Loc,
               Iteration_Scheme =>
                 Make_Iteration_Scheme (Loc,
-                  Iterator_Specification =>  Copy_Separate_Tree (Iter)),
+                  Iterator_Specification => Copy_Separate_Tree (Iter)),
                 Statements => New_List (New_Comp, Incr));
 
             Append (One_Loop, Insertion_Code);
diff --git a/gcc/ada/libgnat/a-cofuve.ads b/gcc/ada/libgnat/a-cofuve.ads
index ee5273039d3..b9af5ca8390 100644
--- a/gcc/ada/libgnat/a-cofuve.ads
+++ b/gcc/ada/libgnat/a-cofuve.ads
@@ -303,7 +303,7 @@ package Ada.Containers.Functional_Vectors with SPARK_Mode is
          and then Get (Add'Result, Position) = New_Item
          and then Range_Equal
                     (Left  => Container,
-                     Right =>  Add'Result,
+                     Right => Add'Result,
                      Fst   => Index_Type'First,
                      Lst   => Index_Type'Pred (Position))
          and then Range_Shifted
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 7fcde4dc87c..158ad4d97e8 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -6780,7 +6780,7 @@ package body Sem_Ch3 is
       Append (
          Make_Parameter_Specification (Loc,
            Defining_Identifier => Make_Temporary (Loc, 'P'),
-           Parameter_Type  =>  New_Occurrence_Of (Id, Loc)),
+           Parameter_Type      => New_Occurrence_Of (Id, Loc)),
          Profile);
 
       if Nkind (Type_Def) = N_Access_Procedure_Definition then