[gcc r12-2112] [Ada] Reduce scope of local variables

[gcc r12-2112] [Ada] Reduce scope of local variables

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:f78c17d267271cf339e4a0efc3bfe7eb0c00b502

commit r12-2112-gf78c17d267271cf339e4a0efc3bfe7eb0c00b502
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Wed May 19 12:07:42 2021 +0200

    [Ada] Reduce scope of local variables
    
    gcc/ada/
    
            * sem_ch6.adb (Check_For_Primitive_Subprogram): Move
            declarations of local variables after nested subprogram bodies.

Diff:
---
 gcc/ada/sem_ch6.adb | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index b0db7fe0939..75e5a99c132 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -11018,10 +11018,6 @@ package body Sem_Ch6 is
         (Is_Primitive  : out Boolean;
          Is_Overriding : Boolean := False)
       is
-         Formal : Entity_Id;
-         F_Typ  : Entity_Id;
-         B_Typ  : Entity_Id;
-
          procedure Add_Or_Replace_Untagged_Primitive (Typ : Entity_Id);
          --  Either add the new subprogram to the list of primitives for
          --  untagged type Typ, or if it overrides a primitive of Typ, then
@@ -11270,6 +11266,12 @@ package body Sem_Ch6 is
             end if;
          end Visible_Part_Type;
 
+         --  Local variables
+
+         Formal : Entity_Id;
+         F_Typ  : Entity_Id;
+         B_Typ  : Entity_Id;
+
       --  Start of processing for Check_For_Primitive_Subprogram
 
       begin