-- Iterated component association. Discard
-- positional insertion procedure.
- if not Present (Iterator_Specification (Comp)) then
+ if No (Iterator_Specification (Comp)) then
Add_Named_Subp := Assign_Indexed_Subp;
Add_Unnamed_Subp := Empty;
end if;