[Ada] Fix interference between iterated element-and-component association

gcc/ada/

	* par-ch4.adb (P_Iterated_Component_Association): Move code for
	iterated_element_association to
	Build_Iterated_Element_Association.

diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb
index df438424fbf7e674ee6bf39e66eab92ed544e328..a14690239b6151d442fe8a37696d866a58109a0f 100644 (file)
--- a/gcc/ada/par-ch4.adb
+++ b/gcc/ada/par-ch4.adb
@@ -3438,6 +3438,12 @@ package body Ch4 is
 
       procedure Build_Iterated_Element_Association is
       begin
+         --  Build loop_parameter_specification
+
+         Loop_Spec :=
+           New_Node (N_Loop_Parameter_Specification, Prev_Token_Ptr);
+         Set_Defining_Identifier (Loop_Spec, Id);
+
          Choice :=  First (Discrete_Choices (Assoc_Node));
          Assoc_Node :=
            New_Node (N_Iterated_Element_Association, Prev_Token_Ptr);
@@ -3488,12 +3494,6 @@ package body Ch4 is
             Filter := P_Condition;
          end if;
 
-         --  Build loop_parameter_specification
-
-         Loop_Spec :=
-           New_Node (N_Loop_Parameter_Specification, Prev_Token_Ptr);
-         Set_Defining_Identifier (Loop_Spec, Id);
-
          if Token = Tok_Use then
 
             --  Ada_2020 Key-expression is present, rewrite node as an