[Ada] Align arrows in parameter associations

gcc/ada/

	* exp_ch4.adb (Expand_N_Op_Ne): Fix whitespace.
	* sem_dim.adb (Expand_Put_Call_With_Symbol): Likewise.
	(Reduce): Likewise.

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 05124dc..e36410d 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -10067,7 +10067,7 @@ package body Exp_Ch4 is
               Make_Op_Not (Loc,
                 Right_Opnd =>
                   Make_Op_Eq (Loc,
-                    Left_Opnd =>  Left_Opnd (N),
+                    Left_Opnd  => Left_Opnd (N),
                     Right_Opnd => Right_Opnd (N)));
 
             --  The level of parentheses is useless in GNATprove mode, and

diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb
index 538da57..a38b129 100644 (file)
--- a/gcc/ada/sem_dim.adb
+++ b/gcc/ada/sem_dim.adb
@@ -3322,13 +3322,13 @@ package body Sem_Dim is
             if Chars (Name_Call) = Name_Image then
                Rewrite (N,
                  Make_Function_Call (Loc,
-                   Name =>                   New_Copy (Name_Call),
+                   Name                   => New_Copy (Name_Call),
                    Parameter_Associations => New_Actuals));
                Analyze_And_Resolve (N);
             else
                Rewrite (N,
                  Make_Procedure_Call_Statement (Loc,
-                   Name =>                   New_Copy (Name_Call),
+                   Name                   => New_Copy (Name_Call),
                    Parameter_Associations => New_Actuals));
                Analyze (N);
             end if;
@@ -3665,7 +3665,7 @@ package body Sem_Dim is
       declare
          G : constant Int := GCD (X.Numerator, X.Denominator);
       begin
-         return Rational'(Numerator =>   Whole (Int (X.Numerator)   / G),
+         return Rational'(Numerator   => Whole (Int (X.Numerator)   / G),
                           Denominator => Whole (Int (X.Denominator) / G));
       end;
    end Reduce;