From 7b1b787baa6ecc03a62b0db043a856cdb6463146 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 25 Sep 2023 17:30:57 +0200
Subject: [PATCH] ada: Simplify "not Present" with "No"

gcc/ada/

	* exp_aggr.adb (Expand_Container_Aggregate): Simplify with "No".
---
 gcc/ada/exp_aggr.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index e5f36326600..340c8c68465 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;
-- 
2.11.4.GIT