[multiple changes]

[thirdparty/gcc.git] / gcc / ada / sem_ch6.adb

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index a4b0c3ce05ba8b96c19a3b08bedb6b0271776a65..afd03c2d51f945d05e2f77c5d68be5b0e70886aa 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -7052,8 +7052,13 @@ package body Sem_Ch6 is
       function Controlling_Formal (Prim : Entity_Id) return Entity_Id;
       --  Return the controlling formal of Prim
 
+      ------------------------
+      -- Controlling_Formal --
+      ------------------------
+
       function Controlling_Formal (Prim : Entity_Id) return Entity_Id is
          E : Entity_Id := First_Entity (Prim);
+
       begin
          while Present (E) loop
             if Is_Formal (E) and then Is_Controlling_Formal (E) then