[Ada] Fix obsolete array aggregate warning being triggered by expanded code

gcc/ada/

	* sem_aggr.adb (Resolve_Array_Aggregate): Filter out nodes not
	coming from source before emitting the warning.

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 0d4af65e8a655f17811f3169e2a0718bc94c859b..6e76e3d3c4d973f6a3f887a89187088776f8f83a 100644 (file)
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -1807,6 +1807,7 @@ package body Sem_Aggr is
         and then not Is_Enum_Array_Aggregate (N)
         and then Is_Parenthesis_Aggregate (N)
         and then Nkind (Parent (N)) /= N_Qualified_Expression
+        and then Comes_From_Source (N)
       then
          Error_Msg_N
            ("?j?array aggregate using () is an" &