[gcc r13-4188] ada: Tweak error messages on misplaced with keywords

[gcc r13-4188] ada: Tweak error messages on misplaced with keywords

[Marc Poulhi?s]

https://gcc.gnu.org/g:8bebbf7b463693316a1518ba31c04648cb629b23

commit r13-4188-g8bebbf7b463693316a1518ba31c04648cb629b23
Author: Ronan Desplanques <desplanques@adacore.com>
Date:   Wed Nov 9 13:32:05 2022 +0100

    ada: Tweak error messages on misplaced with keywords
    
    Before this patch, with clauses placed in declarative sections were
    interpreted by the compiler as incorrect aspect specifications, which
    led to confusing error messages.
    
    This patch makes it so more syntax errors involving the with keyword
    are diagnosed as intended with clauses instead of aspect
    specifications.
    
    gcc/ada/
    
            * par-ch3.adb (P_Declarative_Item): Tweak handling of with keyword.

Diff:
---
 gcc/ada/par-ch3.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb
index aac45890c97..483f96d041f 100644
--- a/gcc/ada/par-ch3.adb
+++ b/gcc/ada/par-ch3.adb
@@ -4682,7 +4682,7 @@ package body Ch3 is
          when Tok_With =>
             Check_Bad_Layout;
 
-            if Aspect_Specifications_Present then
+            if Aspect_Specifications_Present (Strict => True) then
 
                --  If we are after a semicolon, complain that it was ignored.
                --  But we don't really ignore it, since we dump the aspects,