[multiple changes]

2014-01-20  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_prag.adb (Analyze_Pragma): Ensure that
	the sole argument of pragmas Abstract_State, Contract_Cases,
	Depends, Global and Initializes in in aggregate form.
	(Analyze_Refined_Pragma): Ensure that the sole argument of
	pragmas Refined_Depends, Refined_Global and Refined_State is in
	aggregate form.
	(Ensure_Aggregate_Form): New routine.

2014-01-20  Doug Rupp  <rupp@adacore.com>

	* sem_attr.adb (Analyze_Attribute): case
	Attribute_Constrained => treat all prefixes as legal for Declib
	compatibility.

From-SVN: r206836

gcc/ada/ChangeLog

 2014-01-20  Hristian Kirtchev  <kirtchev@adacore.com>
 
+	* sem_prag.adb (Analyze_Pragma): Ensure that
+	the sole argument of pragmas Abstract_State, Contract_Cases,
+	Depends, Global and Initializes in in aggregate form.
+	(Analyze_Refined_Pragma): Ensure that the sole argument of
+	pragmas Refined_Depends, Refined_Global and Refined_State is in
+	aggregate form.
+	(Ensure_Aggregate_Form): New routine.
+
+2014-01-20  Doug Rupp  <rupp@adacore.com>
+
+	* sem_attr.adb (Analyze_Attribute): case
+	Attribute_Constrained => treat all prefixes as legal for Declib
+	compatibility.
+
+2014-01-20  Hristian Kirtchev  <kirtchev@adacore.com>
+
 	* sem_prag.adb (Check_Mode): Reimplement the routine.
 	(Find_Mode): New routine.
 

gcc/ada/sem_attr.adb

@@ -3037,6 +3037,15 @@ package body Sem_Attr is
               and then Extensions_Allowed
             then
                return;
+
+            --  For compatibility with Declib code, treat all prefixes as
+            --  legal, including non-discriminated types.
+
+            --  ??? this non-conforming language extension needs documenting
+            --  ??? anyway it should not depend on Extend_System!
+
+            elsif Present (System_Extend_Unit) then
+               return;
             end if;
          end if;