diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index e5f3632660086c0d8db415388200cfa40e543c9c..340c8c68465b4971e53041d2553c0537d66e6e4d 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -7288,7 +7288,7 @@ package body Exp_Aggr is
                      --  Iterated component association. Discard
                      --  positional insertion procedure.
 
-                     if not Present (Iterator_Specification (Comp)) then
+                     if No (Iterator_Specification (Comp)) then
                         Add_Named_Subp := Assign_Indexed_Subp;
                         Add_Unnamed_Subp := Empty;
                      end if;