From 3419a445f13438e896a43dabaec0cdb63ce6473e Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 20 Mar 2012 11:01:05 +0100
Subject: [PATCH] Minor reformatting.

From-SVN: r185567
---
 gcc/ada/sem_ch3.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;