1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index d62b735..6b6b0ab 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -4914,11 +4914,10 @@ package body Exp_Aggr is
       --  IP procedure.
 
       if Has_Default_Init_Comps (N)
-        or else Present (Constructor_Name (Ctyp))
+        or else Needs_Construction (Ctyp)
         or else (Is_Access_Type (Ctyp)
-                  and then Present
-                             (Constructor_Name
-                               (Directly_Designated_Type (Ctyp))))
+                  and then Needs_Construction
+                             (Directly_Designated_Type (Ctyp)))
       then
          return;
       end if;