[Ada] Use bracket aggregates in Ada2022

gcc/ada/

	* exp_imgv.adb (Append_Table_To): Add new parameter to
	Make_Aggregate call.
	* gen_il-fields.ads (Opt_Field_Enum):
	Add Is_Parenthesis_Aggregate and Is_Enum_Array_Aggregate.
	* gen_il-gen-gen_nodes.adb (Union): Add Is_Enum_Array_Aggregate
	and Is_Parenthesis_Aggregate field to N_Aggregate.
	* libgnarl/s-interr.adb (User_Handler, User_Entry, Blocked)
	(Ignored, Last_Unblocker, Server_ID): Likewise.
	* libgnarl/s-intman.ads (Keep_Unmasked, Reserve): Likewise.
	* libgnarl/s-intman__posix.adb (Exception_Interrupts)
	(Initialize): Likewise.
	* libgnarl/s-mudido__affinity.adb (Create): Likewise.
	* libgnarl/s-osinte__linux.ads (Unmasked, Reserved): Likewise.
	* libgnarl/s-taprop__linux.adb (Create_Task, Set_Task_Affinity)
	* libgnarl/s-tasdeb.adb (Trace_On): Likewise.
	* libgnarl/s-tasdeb.ads (Known_Tasks): Likewise.
	* libgnarl/s-tasinf__linux.ads (Any_CPU, No_CPU): Likewise.
	* libgnarl/s-taskin.adb (Initialize_ATCB): Likewise.
	* libgnarl/s-taskin.ads (Ada_Task_Control_Block): Likewise.
	* libgnarl/s-tasren.adb (Default_Treatment)
	(New_State): Likewise.
	* libgnarl/s-tassta.adb (Trace_Unhandled_Exception_In_Task):
	Likewise.
	* libgnarl/s-tataat.adb (Index_Array): Likewise.
	* libgnarl/s-tpobop.adb (New_State): Likewise.
	* libgnat/a-calend.adb (Cumulative_Days_Before_Month)
	(Leap_Second_Times): Likewise.
	* libgnat/a-calend.ads (Days_In_Month): Likewise.
	* libgnat/a-cfinve.adb (Insert): Likewise.
	* libgnat/a-chahan.adb (Char_Map): Likewise.
	* libgnat/a-chtgbo.adb (Clear): Likewise.
	* libgnat/a-cobove.adb ("&", Insert, To_Vector): Likewise.
	* libgnat/a-cofove.adb (Insert, To_Vector): Likewise.
	* libgnat/a-cohata.ads (Hash_Table_Type): Likewise.
	* libgnat/a-coinve.adb (Merge, Insert, Insert_Space): Likewise.
	* libgnat/a-convec.adb (Insert, To_Vector): Likewise.
	* libgnat/a-coprnu.ads (Primes): Likewise.
	* libgnat/a-direct.adb (Empty_String): Use regular "" instead
	of aggregate.
	(Start_Search_Internal, Name_Case_Equivalence, Search)
	(Start_Search, Start_Search_Internal): Use bracket for
	aggregate.
	* libgnat/a-direct.ads (Start_Search,Search): Likewise.
	* libgnat/a-direio.adb (Zeroes): Likewise.
	* libgnat/a-nbnbre.adb (Leading_Padding, Trailing_Padding)
	(Numerator_Image): Likewise.
	* libgnat/a-ngrear.adb (Jacobi): Likewise.
	* libgnat/a-stbubo.adb (Get_UTF_8): Likewise.
	* libgnat/a-stbufo.adb (Put): Likewise.
	* libgnat/a-stbuun.adb (Get_UTF_8): Likewise.
	* libgnat/a-stbuut.adb (Put_7bit, Put_Character)
	(Put_Wide_Character, Put_Wide_Wide_Character): Likewise.
	* libgnat/a-stmaco.ads (Control_Set,Graphic_Set,Letter_Set)
	(Lower_Set, Upper_Set, Basic_Set, Decimal_Digit_Set)
	(Hexadecimal_Digit_Set, Alphanumeric_Set, Special_Set)
	(ISO_646_Set): Likewise.
	* libgnat/a-strbou.ads (Insert, Tail, "*", Replicate)
	(Null_Bounded_String): Likewise.
	* libgnat/a-strfix.ads (Head, Tail): Likewise.
	* libgnat/a-strmap.adb (To_Domain, Lemma_Is_Sorted): Likewise.
	* libgnat/a-strmap.ads (Null_Set): Likewise.
	* libgnat/a-strsup.adb (Super_Head, Super_Replicate)
	(Super_Tail): Likewise.
	* libgnat/a-strsup.ads (Super_Head, Super_Tail, Times)
	(Super_Replicate): Likewise.
	* libgnat/a-sttebu.adb (Put_UTF8, Wide_Put_UTF_16): Likewise.
	* libgnat/a-stuten.ads (BOM_16): Likewise.
	* libgnat/a-stwibo.ads (Null_Bounded_Wide_String): Likewise.
	* libgnat/a-stwima.ads (Null_Range): Likewise.
	* libgnat/a-stwisu.adb (Super_Head, Super_Replicate)
	(Super_Tail): Likewise.
	* libgnat/a-stzbou.ads
	(Null_Bounded_Wide_Wide_String): Likewise.
	* libgnat/a-stzmap.ads (Null_Range): Likewise.
	* libgnat/a-stzsup.adb (Super_Head, Super_Replicate)
	(Super_Tail, Super_Trim): Likewise.
	* libgnat/a-swmwco.ads (Control_Ranges, Graphic_Ranges)
	(Letter_Ranges, Lower_Ranges, Upeer_Ranges, Basic_Ranges)
	(Decimal_Digit_Ranges, Hexadecimal_Digit_Ranges)
	(Alphanumeric_Ranges, Special_Graphic_Ranges, ISO_646_Ranges)
	(Character_Ranges, Lower_Case_Mapping, Upper_Case_Mapping)
	(Basic_Mapping): Likewise.
	* libgnat/a-szmzco.ads (Control_Ranges, Graphic_Ranges)
	(Letter_Ranges, Lower_Ranges, Upeer_Ranges, Basic_Ranges)
	(Decimal_Digit_Ranges, Hexadecimal_Digit_Ranges)
	(Alphanumeric_Ranges, Special_Graphic_Ranges, ISO_646_Ranges)
	(Character_Ranges, Lower_Case_Mapping, Upper_Case_Mapping)
	(Basic_Mapping): Likewise.
	* libgnat/a-teioed.adb (Format_Number): Likewise.
	* libgnat/a-wtedit.adb (Format_Number): Likewise.
	* libgnat/a-ztedit.adb (Format_Number): Likewise.
	* libgnat/g-arrspl.adb (Separators): Likewise.
	* libgnat/g-catiio.adb (Month_Name_To_Number): Likewise.
	* libgnat/g-cgideb.adb (NL, Title): Likewise.
	* libgnat/g-comlin.adb (Internal_Initialize_Option_Scan)
	(Display_Section_Help): Likewise.
	* libgnat/g-comlin.ads (Opt_Parser_Data): Likewise.
	* libgnat/g-debpoo.adb (Set_Dead_Beef, Dump): Likewise.
	* libgnat/g-expect.adb (Expect, Has_Process, Send): Likewise.
	* libgnat/g-forstr.adb ("+", Get_Formatted): Likewise.
	* libgnat/g-memdum.adb (Dump): Likewise.
	* libgnat/g-rannum.adb (Image): Likewise.
	* libgnat/g-sechas.adb (Final, HMAC_Initial_Context): Likewise.
	* libgnat/g-sehamd.ads (Initial_State): Likewise.
	* libgnat/g-sehash.ads (Initial_State): Likewise.
	* libgnat/g-sercom.ads (Data_Rate_Value): Likewise.
	* libgnat/g-sercom__linux.adb (C_Data_Rate, C_Bits, C_Stop_Bits)
	(C_Parity): Likewise.
	* libgnat/g-shsh32.ads (K, Transform): Likewise.
	* libgnat/g-shsh64.ads (K, Transform): Likewise.
	* libgnat/g-socket.adb (Levels, Modes, Shutmodes, Requests)
	(Options, Flags, Get_Name_Info, Image): Likewise.
	* libgnat/g-socket.ads (Inet_Addr_Bytes_Length, Inet_Addr_Type)
	(IPv4_To_IPv6_Prefix, Any_Inet_Addr, Any_Inet6_Addr)
	(No_Inet_Addr, Broadcast_Inet_Addr, Loopback_Inet_Addr)
	(Loopback_Inet6_Addr, Unspecified_Group_Inet_Addr)
	(All_Hosts_Group_Inet_Addr, All_Routers_Group_Inet_Addr)
	(Unspecified_Group_Inet6_Addr, All_Hosts_Group_Inet6_Addr)
	(All_Routers_Group_Inet6_Addr):	Likewise.
	* libgnat/g-socpol.adb (To_C, Status, Get_Events): Likewise.
	* libgnat/g-socpol.ads (Input_Event, Output_Event, Both_Event)
	(Error_Event): Likewise.
	* libgnat/g-sothco.ads (Families, Lengths, Sockaddr): Likewise.
	* libgnat/g-spipat.adb (OK_For_Simple_Arbno): Likewise.
	* libgnat/i-cobol.ads (Ada_To_COBOL, COBOL_To_Ada): Likewise.
	* libgnat/i-pacdec.adb (Packed_Byte): Likewise.
	* libgnat/i-pacdec.ads (Packed_Size): Likewise.
	* libgnat/s-bitops.adb (Masks): Likewise.
	* libgnat/s-crc32.adb (Table): Likewise.
	* libgnat/s-gearop.adb (Unit_Matrix, Unit_Vector): Likewise.
	* libgnat/s-genbig.adb (Out_data, Zero_Data, Big_Exp, Big_Mul)
	(To_Bignum, To_String, Image, Leading_Padding): Likewise.
	* libgnat/s-htable.adb (Reset): Likewise.
	* libgnat/s-imgcha.adb (C0, C1): Likewise.
	* libgnat/s-powflt.ads (Powten): Likewise.
	* libgnat/s-powlfl.ads (Powten): Likewise.
	* libgnat/s-powllf.ads (Powten): Likewise.
	* libgnat/s-rannum.adb (Matrix_A, Random_Float_Template, Image):
	Likewise.
	* libgnat/s-rannum.ads (Generator): Likewise.
	* libgnat/s-regexp.adb (Compile,Create_Primary_Table)
	(Create_Primary_Table_Glob, Create_Secondary_Table, Compile):
	Likewise.
	* libgnat/s-regpat.adb (Bit_Conversion, Set, Dump_Until)
	(Dump_Current, Dump_Error, Try, Reset_Class): Likewise.
	* libgnat/s-regpat.ads (Pattern_Matcher, Never_Match): Likewise.
	* libgnat/s-scaval__128.adb (Initialize): Likewise.
	* libgnat/s-statxd.adb (Fields, W_F, W_LF)
	(W_LLF, W_SF): Likewise.
	* libgnat/s-stausa.adb (Initialize, Initialize_Analyzer)
	(Output_Results): Likewise.
	* libgnat/s-strops.adb (Str_Concat_SC): Likewise.
	* libgnat/s-valrea.adb (Maxexp32, Maxexp64, Maxexp80): Likewise.
	* libgnat/s-wchcon.ads (WC_Encoding_Letters)
	(WC_Longest_Sequences): Likewise.
	* par-ch4.adb (P_Aggregate_Or_Paren_Expr): Set
	Is_Parenthesis_Aggregate when creating a N_Aggregate using
	parenthesis.
	* scng.adb (Scan): Lower version needed for bracket syntax from
	Extensions to Ada2022.
	* sem_aggr.adb (Resolve_Aggregate): Raise error for container
	aggregate using parenthesis instead of bracket.
	(Resolve_Array_Aggregate): Raise warning for aggregate using
	parenthesis in Ada2022 with obsolescent warning enabled and not
	in GNAT mode.
	* sem_util.ads (Check_Ambiguous_Aggregate): Typo fix in comment.

1 files changed, 2 insertions, 2 deletions

diff --git a/gcc/ada/libgnat/s-crc32.adb b/gcc/ada/libgnat/s-crc32.adb
index 9f34ed5..ea4446a 100644
--- a/gcc/ada/libgnat/s-crc32.adb
+++ b/gcc/ada/libgnat/s-crc32.adb
@@ -41,7 +41,7 @@ package body System.CRC32 is
    --  than processing the byte bit by bit.
 
    Table : constant array (CRC32 range 0 .. 255) of CRC32 :=
-     (16#0000_0000#, 16#7707_3096#, 16#EE0E_612C#, 16#9909_51BA#,
+     [16#0000_0000#, 16#7707_3096#, 16#EE0E_612C#, 16#9909_51BA#,
       16#076D_C419#, 16#706A_F48F#, 16#E963_A535#, 16#9E64_95A3#,
       16#0EDB_8832#, 16#79DC_B8A4#, 16#E0D5_E91E#, 16#97D2_D988#,
       16#09B6_4C2B#, 16#7EB1_7CBD#, 16#E7B8_2D07#, 16#90BF_1D91#,
@@ -104,7 +104,7 @@ package body System.CRC32 is
       16#BDBD_F21C#, 16#CABA_C28A#, 16#53B3_9330#, 16#24B4_A3A6#,
       16#BAD0_3605#, 16#CDD7_0693#, 16#54DE_5729#, 16#23D9_67BF#,
       16#B366_7A2E#, 16#C461_4AB8#, 16#5D68_1B02#, 16#2A6F_2B94#,
-      16#B40B_BE37#, 16#C30C_8EA1#, 16#5A05_DF1B#, 16#2D02_EF8D#);
+      16#B40B_BE37#, 16#C30C_8EA1#, 16#5A05_DF1B#, 16#2D02_EF8D#];
 
    ---------------
    -- Get_Value --