exp_unst.adb: Minor reformatting.

2016-04-20  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_unst.adb: Minor reformatting.

From-SVN: r235259

gcc/ada/ChangeLog

 2016-04-20  Hristian Kirtchev  <kirtchev@adacore.com>
 
+	* exp_unst.adb: Minor reformatting.
+
+2016-04-20  Hristian Kirtchev  <kirtchev@adacore.com>
+
 	* exp_ch4.adb (Expand_Allocator_Expression): Ensure that the
 	tag assignment and adjustment preceed the accessibility check.
 	* exp_ch7.adb (Is_Subprogram_Call): Reimplemented.

gcc/ada/exp_unst.adb

@@ -145,6 +145,7 @@ package body Exp_Unst is
    function Get_Level (Subp : Entity_Id; Sub : Entity_Id) return Nat is
       Lev : Nat;
       S   : Entity_Id;
+
    begin
       Lev := 1;
       S   := Sub;
@@ -152,8 +153,8 @@ package body Exp_Unst is
          if S = Subp then
             return Lev;
          else
-            S := Enclosing_Subprogram (S);
             Lev := Lev + 1;
+            S   := Enclosing_Subprogram (S);
          end if;
       end loop;
    end Get_Level;