accept_statement

accept_statement ::= 
      "accept" direct_name [ "(" entry_index ")" ] parameter_profile [ "do" 
      handled_sequence_of_statements 
      "end" [ entry_identifier ] ] ";" 

This rule is called by

-> accept_alternative
-> compound_statement