Minor reformatting.

From-SVN: r185567

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 443c2d1048bc38b52c41be885965cd2000ba8605..3e10ac36dc8a85d68871e102f1851ee596bd85bf 100644 (file)
--- 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;