ada: First controlling parameter aspect

gcc/ada/

	* sem_ch13.adb (Analyze_One_Aspect): Temporarily remove reporting
	an error when the new aspect is set to True and the extensions are
	not enabled.

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index f4ff3a282734337e7103b7c670f7675458992c47..3487931bf4d7736f2b444a10ce283956396c0236 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -4524,9 +4524,6 @@ package body Sem_Ch13 is
                         if (No (Expr) or else Entity (Expr) = Standard_True)
                           and then not Core_Extensions_Allowed
                         then
-                           Error_Msg_GNAT_Extension
-                             ("'First_'Controlling_'Parameter", Sloc (Aspect),
-                              Is_Core_Extension => True);
                            goto Continue;
                         end if;