[gcc r16-1373] ada: Rename constant in Analyze_Component_Declaration

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:467b7f3986425a0b52b27911ed2cd6dd19017f4b

commit r16-1373-g467b7f3986425a0b52b27911ed2cd6dd19017f4b
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Mon Mar 24 12:19:07 2025 +0100

    ada: Rename constant in Analyze_Component_Declaration
    
    "Typ" is typically used to name constants that are entity IDs for types.
    Before this patch, a constant local to Analyze_Component_Declaration
    designating a syntactic subtype indication had that name. This patch
    renames it to "Ind".
    
    Code cleanup; behavior is unaffected.
    
    gcc/ada/ChangeLog:
    
            * sem_ch3.adb (Analyze_Component_Declaration): Rename constant.

Diff:
---
 gcc/ada/sem_ch3.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 45f7dc90aa45..fb24f0f5db2f 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -1953,7 +1953,7 @@ package body Sem_Ch3 is
    procedure Analyze_Component_Declaration (N : Node_Id) is
       Id  : constant Entity_Id  := Defining_Identifier (N);
       E   : constant Node_Id    := Expression (N);
-      Typ : constant Node_Id    :=
+      Ind : constant Node_Id    :=
               Subtype_Indication (Component_Definition (N));
       T   : Entity_Id;
       P   : Entity_Id;
@@ -2052,7 +2052,7 @@ package body Sem_Ch3 is
       Generate_Definition (Id);
       Enter_Name (Id);
 
-      if Present (Typ) then
+      if Present (Ind) then
          T := Find_Type_Of_Object
                 (Subtype_Indication (Component_Definition (N)), N);