[COMMITTED 03/16] ada: First controlling parameter aspect

[Marc Poulhiès]

From: Javier Miranda <mira...@adacore.com>

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.

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

---
 gcc/ada/sem_ch13.adb | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index f4ff3a28273..3487931bf4d 100644
--- 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;
 
-- 
2.45.2