182 lines
7.4 KiB
Plaintext
182 lines
7.4 KiB
Plaintext
================================================================================
|
|
Range attribute
|
|
================================================================================
|
|
|
|
procedure P is
|
|
A : MyArray (B'Range (1));
|
|
begin
|
|
for E in Arr'Range loop
|
|
null;
|
|
end loop;
|
|
for E in Arr'Range (1) loop
|
|
null;
|
|
end loop;
|
|
end;
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
(compilation
|
|
(compilation_unit
|
|
(proper_body
|
|
(subprogram_body
|
|
(subprogram_specification
|
|
(procedure_specification
|
|
(identifier)))
|
|
(non_empty_declarative_part
|
|
(declarative_item_pragma
|
|
(object_declaration
|
|
(defining_identifier_list
|
|
(identifier))
|
|
(subtype_indication
|
|
(identifier)
|
|
(constraint
|
|
(index_constraint
|
|
(discrete_range
|
|
(range_g
|
|
(identifier)
|
|
(tick)
|
|
(range_attribute_designator
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(numeric_literal))))))))))))))))
|
|
(handled_sequence_of_statements
|
|
(sequence_of_statements
|
|
(statement
|
|
(compound_statement
|
|
(loop_statement
|
|
(iteration_scheme
|
|
(loop_parameter_specification
|
|
(identifier)
|
|
(discrete_subtype_definition
|
|
(range_g
|
|
(identifier)
|
|
(tick)
|
|
(range_attribute_designator)))))
|
|
(sequence_of_statements
|
|
(statement
|
|
(simple_statement
|
|
(null_statement)))))))
|
|
(statement
|
|
(compound_statement
|
|
(loop_statement
|
|
(iteration_scheme
|
|
(loop_parameter_specification
|
|
(identifier)
|
|
(discrete_subtype_definition
|
|
(range_g
|
|
(identifier)
|
|
(tick)
|
|
(range_attribute_designator
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(numeric_literal))))))))))))
|
|
(sequence_of_statements
|
|
(statement
|
|
(simple_statement
|
|
(null_statement)))))))))))))
|
|
|
|
================================================================================
|
|
Reduction
|
|
================================================================================
|
|
|
|
procedure P is
|
|
X : Integer :=
|
|
[parallel for Val of M when Val > 100.0 => (Val, 1)]
|
|
'Reduce("+", 0);
|
|
begin
|
|
null;
|
|
end;
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
(compilation
|
|
(compilation_unit
|
|
(proper_body
|
|
(subprogram_body
|
|
(subprogram_specification
|
|
(procedure_specification
|
|
(identifier)))
|
|
(non_empty_declarative_part
|
|
(declarative_item_pragma
|
|
(object_declaration
|
|
(defining_identifier_list
|
|
(identifier))
|
|
(subtype_indication
|
|
(identifier))
|
|
(assign_value
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(attribute_reference
|
|
(reduction_attribute_reference
|
|
(value_sequence
|
|
(iterated_element_association
|
|
(iterator_specification
|
|
(identifier)
|
|
(identifier)
|
|
(iterator_filter
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(identifier)))))
|
|
(relational_operator)
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(numeric_literal)))))))))
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(aggregate
|
|
(array_aggregate
|
|
(positional_array_aggregate
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(identifier)))))))
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(numeric_literal))))))))))))))))))
|
|
(tick)
|
|
(reduction_attribute_designator
|
|
(identifier)
|
|
(reduction_specification
|
|
(string_literal)
|
|
(expression
|
|
(relation
|
|
(simple_expression
|
|
(term
|
|
(factor
|
|
(primary
|
|
(numeric_literal)))))))))))))))))))))
|
|
(handled_sequence_of_statements
|
|
(sequence_of_statements
|
|
(statement
|
|
(simple_statement
|
|
(null_statement)))))))))
|