]> git.ipfire.org Git - thirdparty/gcc.git/blobdiff - gcc/ada/sem_ch5.adb
[multiple changes]
[thirdparty/gcc.git] / gcc / ada / sem_ch5.adb
index 62df0de17b1f784351a607eff7ad154317e50d27..54819b8f0f2ad257ee0933838fc0b6579c503517 100644 (file)
@@ -827,7 +827,6 @@ package body Sem_Ch5 is
 
       declare
          Ent : constant Entity_Id := Get_Enclosing_Object (Lhs);
-
       begin
          if Present (Ent)
            and then Safe_To_Capture_Value (N, Ent)
@@ -840,6 +839,7 @@ package body Sem_Ch5 is
             Set_Last_Assignment (Ent, Lhs);
          end if;
       end;
+
       Analyze_Dimension (N);
    end Analyze_Assignment;