Minor reformatting.

From-SVN: r185567

Minor reformatting.
From-SVN: r185567
3419a445 · Arnaud Charlet · ce40d1ce · 3419a445
Commit 3419a445 authored Mar 20, 2012 by Arnaud Charlet
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletions

gcc/ada/sem_ch3.adb
+2 -1

No files found.
--- 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;