[gcc r12-6358] [Ada] Remove extra space before THEN keywords

[gcc r12-6358] [Ada] Remove extra space before THEN keywords

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:93b2e53e872d4cd3c1f9521df2923ea74e473193

commit r12-6358-g93b2e53e872d4cd3c1f9521df2923ea74e473193
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Thu Dec 16 21:54:04 2021 +0100

    [Ada] Remove extra space before THEN keywords
    
    gcc/ada/
    
            * exp_ch5.adb, exp_disp.adb, exp_util.adb, par-ch4.adb,
            sem_ch13.adb: Remove extra space before THEN that occurs at the
            end of a line.

Diff:
---
 gcc/ada/exp_ch5.adb  | 2 +-
 gcc/ada/exp_disp.adb | 2 +-
 gcc/ada/exp_util.adb | 2 +-
 gcc/ada/par-ch4.adb  | 2 +-
 gcc/ada/sem_ch13.adb | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index 0adf9f07410..9536da36375 100644
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -2664,7 +2664,7 @@ package body Exp_Ch5 is
             Rewrite (Lhs, OK_Convert_To (Base_Type (Typ), Lhs));
             Apply_Discriminant_Check (Rhs, Typ, Lhs);
 
-         elsif Is_Array_Type (Typ) and then Is_Constrained (Typ)  then
+         elsif Is_Array_Type (Typ) and then Is_Constrained (Typ) then
             Rewrite (Rhs, OK_Convert_To (Base_Type (Typ), Rhs));
             Rewrite (Lhs, OK_Convert_To (Base_Type (Typ), Lhs));
             Apply_Length_Check (Rhs, Typ);
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb
index 7396c3e0335..968347eacdf 100644
--- a/gcc/ada/exp_disp.adb
+++ b/gcc/ada/exp_disp.adb
@@ -4615,7 +4615,7 @@ package body Exp_Disp is
                --  case concerning the need for this check, and this topic may
                --  go back to the ARG.
 
-               if not Is_Abstract_Subprogram (Prim)  then
+               if not Is_Abstract_Subprogram (Prim) then
                   Formal := First_Formal (Prim);
                   while Present (Formal) loop
                      Check_Premature_Freezing (Prim, Typ, Etype (Formal));
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 7a3e4b597e8..e17e8ac043d 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -3752,7 +3752,7 @@ package body Exp_Util is
       --  Anonymous arrays in object declarations have no explicit declaration
       --  so use the related object declaration as the insertion point.
 
-      elsif Is_Itype (Work_Typ) and then Is_Array_Type (Work_Typ)  then
+      elsif Is_Itype (Work_Typ) and then Is_Array_Type (Work_Typ) then
          Typ_Decl := Associated_Node_For_Itype (Work_Typ);
 
       --  Derived types with the full view as parent do not have a partial
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb
index 4b021e7a932..483e1af5082 100644
--- a/gcc/ada/par-ch4.adb
+++ b/gcc/ada/par-ch4.adb
@@ -2968,7 +2968,7 @@ package body Ch4 is
                   Save_Scan_State (Scan_State);
                   Scan;   --  past FOR
 
-                  if Token = Tok_All or else Token = Tok_Some  then
+                  if Token = Tok_All or else Token = Tok_Some then
                      Restore_Scan_State (Scan_State);  -- To FOR
                      Node1 := P_Quantified_Expression;
 
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index f462951b301..af685f5e9d5 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -16005,7 +16005,7 @@ package body Sem_Ch13 is
 
       function Valid_Empty (E :  Entity_Id) return Boolean is
       begin
-         if Etype (E) /= Typ or else Scope (E) /= Scope (Typ)  then
+         if Etype (E) /= Typ or else Scope (E) /= Scope (Typ) then
             return False;
 
          elsif Ekind (E) = E_Constant then