1 files changed, 0 insertions, 10 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 20270c20fe1..95f1466968a 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -12631,16 +12631,6 @@ package body Sem_Attr is
          begin
             if not Is_Entity_Name (P) or else not Is_Type (Entity (P)) then
                Resolve (P);
-
-               --  If the prefix is a function call returning on the secondary
-               --  stack, we must make sure to mark/release the stack.
-
-               if Nkind (P) = N_Function_Call
-                 and then Nkind (Parent (N)) = N_Loop_Parameter_Specification
-                 and then Requires_Transient_Scope (Etype (P))
-               then
-                  Set_Uses_Sec_Stack (Scope (Current_Scope));
-               end if;
             end if;
 
             Dims := Expressions (N);