[gcc r17-1315] ada: Enforce comment with assertions

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:15d15252c99250ed22248a1e1518bf1d65d86176

commit r17-1315-g15d15252c99250ed22248a1e1518bf1d65d86176
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Sun May 17 13:42:14 2026 +0200

    ada: Enforce comment with assertions
    
    Code cleanup.
    
    gcc/ada/ChangeLog:
    
            * exp_util.adb (Full_Qualified_Name_String): Add assertions; fix 
style.

Diff:
---
 gcc/ada/exp_util.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 842ed5998a35..d10bd801ef6e 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -7408,6 +7408,8 @@ package body Exp_Util is
          --  don't bother about those.
 
          if Chars (Ent) = No_Name then
+            pragma Assert (Ekind (Ent) = E_Block);
+            pragma Assert (No (Scope (Ent)));
             return;
          end if;
 
@@ -7419,7 +7421,7 @@ package body Exp_Util is
          return;
       end Internal_Full_Qualified_Name;
 
-   --  Start of processing for Full_Qualified_Name
+   --  Start of processing for Full_Qualified_Name_String
 
    begin
       Start_String;