From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 20 Mar 2012 10:01:05 +0000 (+0100)
Subject: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3419a445f13438e896a43dabaec0cdb63ce6473e;p=gcc.git

Minor reformatting.

From-SVN: r185567
---

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;