[COMMITTED 06/22] ada: Replace "not Present" test with "No" test

[Marc Poulhiès]

From: Gary Dismukes <dismu...@adacore.com>

Minor change to satisfy GNAT SAS checker.

gcc/ada/ChangeLog:

        * exp_aggr.adb (Build_Size_Expr): Change test of "not Present (...)"
        to "No (...)".

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/exp_aggr.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 5b9be1e9a96..987db2a5d81 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -6918,8 +6918,7 @@ package body Exp_Aggr is
                           and then
                             Present (First_Entity (Length_Subp))
                           and then
-                            not Present
-                                  (Next_Entity (First_Entity (Length_Subp)))
+                            No (Next_Entity (First_Entity (Length_Subp)))
                           and then
                             Base_Type
                               (Etype (First_Entity (Length_Subp))) = It_Base
-- 
2.43.0