diff options
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 443c2d1..3e10ac3 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -15620,9 +15620,10 @@ package body Sem_Ch3 is function Root_Corresponding_Discriminant (Discr : Entity_Id) return Entity_Id is - D : Entity_Id := Discr; + D : Entity_Id; begin + D := Discr; while Present (Corresponding_Discriminant (D)) loop D := Corresponding_Discriminant (D); end loop; |