diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 443c2d1048b..3e10ac36dc8 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;