diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb
index aac45890c97c71f7556eaaba83bbb49aeaf10549..483f96d041f11583c64d1c6f3b084b20fad5c6cc 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,